thanks rylo, this has worked out nicely. Im having one problem that I cannot work out. I need to return the default right click menu to the cells that are not in the target range. here is the modified beforerightclick event code Im currently using:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim topicRng As Range
Cancel = True
Set topicRng = Range("topics")
If Not Application.Intersect(Target, topicRng) _
Is Nothing And Target.Cells.Count = 1 Then
UserForm1.Show
End If
Cancel = False
End Sub
I added the "Cancel = False" but it hasnt helped.
any idea how to get the default right click to be available to the other cells?
Thanks
Robert
Bookmarks