Hi - I hope someone can help me with this I've been trying different methods but i'm struggling a little
I'm trying to get a code to reference sheets by the codename - so in this case i want to start at Sheet18 and run the code through to Sheet37.
This is my code:
Sub ConditionalFormatChanger()
For i = 18 To 37
With i
Sheet1.Range("B1").Copy
Sheet(i).Cells.FormatConditions.Delete
Sheet(i).Range("B1").Copy
Sheet(i).Range("B6:N12,B15:N21,B24:N30,B33:N39,E44:K44").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Sheet(i).Range("A1:B1").Select
End With
Next i
End Sub
What it is dong is starting from the 18th sheet in the workbook (which is not Sheet18) because of hidden sheets and others before it.
I appreciate any help thanks
John
Bookmarks