Private Sub Worksheet_Activate()
userform1.Show
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
userform1.Show
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
userform1.Show
End Sub
Private Sub Worksheet_Calculate()
userform1.Show
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
userform1.Show
End Sub
Private Sub Worksheet_Deactivate()
userform1.Show
End Sub
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
userform1.Show
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
userform1.Show
End Sub