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