Sub Hide()
If Sheets("Dash Board").Shapes("Button 1").TextFrame.Characters.Text = "Teamwise Dashboard Hide" Then
Range("I:X").EntireColumn.Hidden = True
Sheets("Dash Board").Shapes("Button 1").TextFrame.Characters.Text = "Teamwise Dashboard Show"
ElseIf Sheets("Dash Board").Shapes("Button 1").TextFrame.Characters.Text = "Teamwise Dashboard Show" Then
Range("I:X").EntireColumn.Hidden = False
Sheets("Dash Board").Shapes("Button 1").TextFrame.Characters.Text = "Teamwise Dashboard Hide"
End If
End Sub
This one worked.
Thanks all for looking into this..
Bookmarks