Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

The event-handler procedure for the SelectionChange event

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)     If Union(Target, Range("ToolbarRange")).Address = Range("ToolbarRange").Address Then         CommandBars("myBar").Visible = True     Else         CommandBars("myBar").Visible = False     End If End Sub