Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Select Case Target:
Case ThisWorkbook.Worksheets(2).Range("Maintenance"):NameBar = "NameBarMA"
Case ThisWorkbook.Worksheets(2).Range("OperatingE"): NameBar = "NameBarOE"
Case Else: NameBar = ""
End Select
If NameBar = "" Then
Else
Initialize (NameBar)
Cancel = True
CommandBars(NameBar).ShowPopup
End If
End Sub