macro fails after enabling

[Peterfc2]

I have a workbook I get from my website. When I save it and enable it gives an error in the macro.

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim sht As Object
For Each sht In Sheets

Fails at this line

Anyone any ideas?

 

[JoeMo]

Try":
Dim sht as Worksheet
For each sht in Thisworkbook.Worksheets

 

[Peterfc2]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim sht As Object
For Each sht In ThisWorkbook.Worksheets
If sht.Name <> "INDEX" Then
sht.Visible = xlSheetHidden
End If
Next sht
Sheets("INDEX").Select

Now it stops here

 

[Michael M]

You didn't use the Dim for worksheets as suggested by Joe !!
Why not simply post the entire code !
That way we can debug it live !!