I have a macro that first unprotects all sheets from sheet3 and the copies the named range that match the sheet with the same name as the ranged sheet and then protects the sheet
I am battling to get this to work,
It would be appreciated if someone could assist me
I am battling to get this to work,
It would be appreciated if someone could assist me
Code:
Sub Copy_Comm()
Application.DisplayAlerts = False
Dim i As Long
For i = 3 To Worksheets.Count
Worksheets(i).Unprotect
Next i
With Sheets(1)
.Range("Peter).Copy
Sheets("Peter).Range("A1").PasteSpecial Paste:=xlPasteValues
End With
Worksheets(i).Protect
Next i
End Sub