Sub blcmmobile()
Dim n
ActiveWorkbook.Unprotect ("")
If Sheets("BL(1)").Visible = True Then
Sheets("BL(1)").Copy After:=Sheets(Sheets.Count)
Sheets("Packing List BL(1)").Copy After:=Sheets(Sheets.Count)
n = Replace(Split(ActiveSheet.Name, "(")(1), ")", "")
ActiveSheet.UsedRange.Replace What:="(1)", Replacement:="(" & n & ")", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Sheets("CM(1)").Copy After:=Sheets(Sheets.Count)
ActiveSheet.UsedRange.Replace What:="(1)", Replacement:="(" & n & ")", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Else
Application.ScreenUpdating = False
Sheets("BL(1)").Visible = True
Sheets("Packing List BL(1)").Visible = True
Sheets("CM(1)").Visible = True
Sheets("BL(1)").Select
Range("BM3:BN3").Select
Application.ScreenUpdating = True
End If
ActiveWorkbook.Protect ("")
End Sub