Skip first sheet in For Each loop?

[whatsapro]

I was trying to freeze the first row of each sheet besides the first sheet. Can someone help me find a way to skip the first sheet in this loop?

Public Sub FreezePanes()
    
    Dim s As Worksheet
    Dim c As Worksheet
    
     '// store current sheet
    Set c = ActiveSheet
    
     '// Stop flickering...
    Application.ScreenUpdating = False
    
     '// Loop throught the sheets
    For Each s In ThisWorkbook.Worksheets
        
         '// Have to activate - SplitColumn and SplitRow are properties
         '// of ActiveSheet
        s.Activate
        
        With ActiveWindow
            .SplitColumn = 0
            .SplitRow = 1
            .FreezePanes = True
        End With
        
    Next
    
     '// Back to original sheet
    c.Activate
    Application.ScreenUpdating = True
    
    Set s = Nothing
    Set c = Nothing
    
End Sub