Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("g3:h30")) Is Nothing Then
CommandBars("Cell").Enabled = True
Else
CommandBars("Cell").Enabled = False
Exit Sub
End If
End Sub