Apparent loss of action of this Macro

[Lazz0]

I have been using this Macro shown below for many years now to unhide previously Very Hidden worksheets.

Sub VisibleTrue()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Sheets
ws.Visible = True
Next ws
ActiveWindow.DisplayWorkbookTabs = True
Sheet1.Select
End Sub

This Macro now gives me the following error message when I try to activate the macro.

I have this programme operating on two computers and they have mysteriously both failed on the same day????

Has there been any changes to the Microsoft Visual Basic language in the last week or so????

 

[Georgiboy]

Not that I know of, what line do you get the error on?

 

[Fluff]

Make sure that the workbook as not been protected.

 

[Lazz0]

Thanks guys,
No the workbook is not protected.

This is one of the final macro's used in a log in page to access a limited number of worksheets in my programme.

The workbook has 84 worksheets in it and on opening the programme there is a log on form that is supposed to allow the operator access to limited worksheets depending upon the password supplied.

The Log on process is interrupted and the LOG ON form does not get to be accessed.

I can access the Log On form but the error that I posted with this problem is the result.

 

[Lazz0]

A further piece of information:
I don't seem to be able to change the status of the worksheet in the Macro.
The following message ie displayed when i try to manually change the status of the visible properties of the worksheet.

In fact, I am not able to change this status on any of the worksheets

 

[Fluff]

No the workbook is not protected.

Are you absolutely sure? Check the "Protect workbook" icon on the review tab.