Help with workbook open code

change your IF line on

Thank you very much, that worked.

I appreciate the quick response!

you are welcome, but did you realize why it didn`t work?

Yes, I know why it did not work.

It did not work because excel was told that if I chose "NO" then it should exit the sub, and the code to hide the "exchange rates" again, appeared further down the sub.

I have an additional question actually.
Can I have the "Exchange rates" sheet hidden as "very hidden" instead of just "hidden"?

hope this will help)
https://www.mrexcel.com/forum/excel...y-hidden-using-visual-basic-applications.html

Again, thank you very much for the help.

I found the answer in the thread you have provided.
Simple answer really, but I am all new to this, and I don't "speak" the same language as excel yet.
You have to know the language to do the simple things

Maybe you can help me with another thing.

I have a workbook full of macros.
If another user decides to open the workbook and disables macros, I want a sheet called "Macros disabled" to be shown, and all other sheets to be very hidden.
If the user enables macros, then I want the "Macros disabled" sheet to be very hidden, but "Shock Compliance Information", "Prices" and "Copied Prices" to be shown and the normal open workbook code to run.

I tried just to say:
Sheets("Shock Compliance Information").Visible = True
Sheets("Prices").Visible = True
Sheets("Copied Prices").Visible = True
Sheets("Macros disabled").Visible = xlVeryHidden

In the start of the Workbook Open sub, but that doesn't work.

as before:
https://www.mrexcel.com/forum/excel-questions/12694-detect-whether-macros-enabled-resolved.html

I cannot get this to work,

here is my entire workbook code;

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim sh As Worksheet
For Each sh In Worksheets
If sh.Name <> "Macros disabled" Then _
sh.Visible = xlSheetVeryHidden
Next
End Sub
Private Sub Workbook_Open()
Sheets("Shock Compliance Information").Visible = True
Sheets("Prices").Visible = True
Sheets("Copied Prices").Visible = True
Sheets("Macros disabled").Visible = xlVeryHidden
Worksheets("Copied Prices").Cells.Delete
Worksheets("Shock Compliance Information").Activate
Worksheets("Prices").Range("B5").Value = ""
Application.ScreenUpdating = False
Sheets("Exchange rates").Visible = True
If MsgBox("Internet connection needed to update exchange rates. Update now?", _
vbYesNo) = vbNo Then
Sheets("Exchange rates").Visible = xlVeryHidden
Application.ScreenUpdating = True
Exit Sub
End If
Sheets("Exchange rates").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Sheets("Exchange rates").Visible = xlVeryHidden
Range("A1").Select
Application.ScreenUpdating = True
End Sub

When I try to close my workbook I get the error: Run-time error '1004' Method 'Visible' of object '_Worksheet' failed.