For Loop Not Initialized

[SBF12345]

Greetings,

I need to run through a series of worksheets by the same name in different workbooks. I am receiving the "for loop not initialized" error on the last line. Not sure how to troubleshoot this and not really understanding the error in this portion of the code.

Thanks!

For Each Worksheet In PA    
    G = ActiveSheet.Name
    
    PA.Worksheets(G).Activate
    
    Range("A:A").Select
    Selection.NumberFormat = "mm/dd/yyyy;@"


    MAIN.Worksheets(G).Activate
    
    Range("A:A").Select
    Selection.NumberFormat = "mm/dd/yyyy;@"
    
    FO.Worksheets(G).Activate
    
    Range("A:A").Select
    Selection.NumberFormat = "mm/dd/yyyy;@"
    
    O.Worksheets(G).Activate
    
    Range("A:A").Select
    Selection.NumberFormat = "mm/dd/yyyy;@"


    Next Worksheet

 

[MARK858]

Just out of interest what happens with...

    Dim ws As Worksheet
    For Each ws In PA.WorkSheets
        G = ActiveSheet.Name

        PA.Worksheets(G).Range("A:A").NumberFormat = "mm/dd/yyyy;@"
        MAIN.Worksheets(G).Range("A:A").NumberFormat = "mm/dd/yyyy;@"
        FO.Worksheets(G).Range("A:A").NumberFormat = "mm/dd/yyyy;@"
        O.Worksheets(G).Range("A:A").NumberFormat = "mm/dd/yyyy;@"


    Next ws

Although I am not seeing what your loop is trying to achieve unless you meant G = ActiveSheet.Name to be G = ws.Name.