For Each Worksheet not fails

[Eroslight]

Hi, and thanks in advance for any assistance.
Been trying this code

Dim Sh As Worksheet
    For Each Sh In ActiveWorkbook.Worksheets
        Debug.Print Sh
    Next
End Sub

I fails to see any active workbook worksheets. Error = Run Time error 438
Object doesn't support this property or method

Pretty sure it must be something simple but for the life of me can't figure out what it is.

 

[Fluff]

Hi & welcome to MrExcel.
Try

Debug.Print Sh.Name

 

[Eroslight]

Yep, Knew it was simple

 

[Fluff]

Glad to help & thanks for the feedback.