Getting this error when trying to unhide all sheets?

[tonywatsonhelp]

Hi Everyone,
I have this code:

Sub unHide_Every_Sheet()
Application.EnableEvents = False
Application.ScreenUpdating = False

For Each sht In ActiveWorkbook.Worksheets
    If sht.Visible = xlSheetHidden Then
        sht.Visible = xlSheetVisible
    End If
Next sht

Sheets("Control").Select

Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

it works great on my PC buy my cloeges Surface pro just give us this run time error

run-time error '-2147417848 (80010108)
method visible of object _worksheet failed

the strange thing is it doesnt do it every time but after two or three run it does then might be like it for ages,
I get this error then the computer freezes and i have to hit Ctrl alt Del to get out or it just crashes and closes down.

I cant work out why?
i have tried running the macro stoped and preeessing F8 and it runs all the way without an error

does anyone know why it might be doing this?
what i can try to fix it

It run perfectly on my machine?

thanks

Tony

 

[Michael M]

Try it without Application.EnableEvents = False
Make sure the sheets aren't protected OR xlVeryHidden

 

[tonywatsonhelp]

Hi Michael,
I have tried everything i can think of including the above,
the strandes part is i've even completly changed the macro so it was just unhiding each sheet by name and i still go the same problem.
I'm thinking its more to do with his computer, maybe a feature or a seeting that I take for granted is not there or switched off, but i dont know where to look and i've done all the standard things?
Its very perplexing

 

[Michael M]

His PC might be a Mac.....

 

[Jaafar Tribak]

Maybe
ActiveWorkbook.Worksheets should be ThisWorkbook.Worksheets

and
Sheets("Control").Select should be ThisWorkbook.Sheets("Control").Select

 

[tonywatsonhelp]

Thanks Michael but I dont think Apple make Surface Pros? LOL