This workbook has lost its VBA project, ActiveX controls and any other programmability-related features.

[inosent]

i have VBA installed, working, etc, but i still get this message

i am trying to unhide worksheets using VBA

Sub UnhideAllSheets()
    Dim wsSheet As Worksheet

    For Each wsSheet In ActiveWorkbook.Worksheets
        wsSheet.Visible = xlSheetVisible
    Next wsSheet
End Sub

but it gets stuck here: wsSheet.Visible = xlSheetVisible

 

[Colin Legg]

Is this procedure being called from an event handler such as Workbook_BeforeSave or Workbook_BeforeClose, or is it being called from a procedure where the workbook has been saved?

 

[inosent]

i created a module, paste the code, hit run and got an error

not sure how else to put it ...

thanks for the reply

 

[Colin Legg]

If you save and close the workbook, reopen it, add a new code module and copy+paste in the code and then run it by pressing F8 to step through the code, do you get the same error on that line? If yes, is it on the first iteration on the loop or is it a subsequent sheet that is causing the problem?