Hi all,

HYCH with this

I have 7 buttons on a page but would like 1 to be displayed depending
on a given criteria, ie day of the week.
I was hoping the simple code below would work, but appears not.
Any helps please??


Private Sub Workbook_Open()
Worksheets("Sheet1").Activate
With ActiveWindow
Application.Command("button 6").Visible = False
End With
If Weekday(Worksheets("sheet1").Range("g1").Value) = vbWednesday
Then
TextBox1_Click.Show
Else
somefrm.Show
End If
End Sub


Steve