Hide sheets using vba

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

PJ - 23 Sep 2006 10:54 GMT

Hi all

I have a sheet initally hidden(Contact) and the rest visiable, what I am
trying to do is when today() = 1-11-06 it automatically unhides the Contact
sheet and hides all the rest.

I am trying to do it with having a button assigned to a macro - Having no
luck...

Any help welcome.

Thanks
Paul

tried...
Sheets("Menu").Range ("A1") >= "01/11/2006"
GoTo hide
Sub hide()
Run
Sheets(Array("Health Dec", "Menu", "UK", "EU", "XU", "WW", "AT EU", "AT
WW", "Summary") _
).Select
Sheets("Health Dec").Activate
ActiveWindow.SelectedSheets.Visible = False
Sheets("Contact").Visible = True
Sheets("Long stay").Select
ActiveWindow.SelectedSheets.Visible = False
End Sub

Reply to this Message

PJ - 23 Sep 2006 10:59 GMT

Sorry - Trying to do it WITHOUT using a macro button.

> Hi all
>
[quoted text clipped - 24 lines]
> ActiveWindow.SelectedSheets.Visible = False
> End Sub

Reply to this Message

PJ - 23 Sep 2006 11:31 GMT

Sussed it...with

Private Sub Workbook_Open()
If Sheets("Menu").Range("A1") >= "01/11/2006" Then
Sheets(Array("Health Dec", "Menu", "UK", "EU", "XU", "WW", "AT EU", "AT
WW", "Summary") _
).Select
Sheets("Health Dec").Activate
ActiveWindow.SelectedSheets.Visible = False
Sheets("Contact").Visible = True
Sheets("Long stay").Select
ActiveWindow.SelectedSheets.Visible = False
End If
End Sub

> Sorry - Trying to do it WITHOUT using a macro button.
>
[quoted text clipped - 26 lines]
>> ActiveWindow.SelectedSheets.Visible = False
>> End Sub

Reply to this Message

Óã¸É - 23 Sep 2006 11:41 GMT

Sub yqr()
For Each aaa In ActiveWorkbook.Worksheets
If aaa.Name <> "Contact" Then aaa.Visible = False
Next
End Sub

> Hi all
>
[quoted text clipped - 24 lines]
> ActiveWindow.SelectedSheets.Visible = False
> End Sub

Reply to this Message