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..