Right Click Option Missing
 

I have a template that users have the option to right click in any cell in
column A after row 1 and select a custom menu option. For most users there
is no problem.

For one particular user the custom option doesn't appear in the list - the
default options do. I've checked for errors and stepped through the code and
it does execute the .Caption and the .OnAction code but with no result (and
no error codes generated). The users are on xl 2002 and 2003. This issue is
on 2002.

This template has gone out to about a hundred users; this is the only user
having this problem. I'm using Worksheet_BeforeRightClick on the sheet-level
object.

Any ideas?
--
MacGuy

Right Click Option Missing
 

Is this the only user on xl2000? can you post your entire option
assignment code?


--
Breakfast Guy
------------------------------------------------------------------------
Breakfast Guy's Profile: http://www.thecodecage.com/forumz/member.php?userid=5
View this thread: http://www.thecodecage.com/forumz/showthread.php?t=6880

Right Click Option Missing
 

The user is on xl 2002. Here's the code:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As
Boolean)

Dim mapGL As Object
For Each mapGL In Application.CommandBars("cell").Controls
If mapGL.Tag = "rpct" Then mapGL.Delete
Next mapGL
If Not Application.Intersect(Target, _
Range([a1].Offset(1, 0),
[a1].Offset(ActiveSheet.UsedRange.Rows.Count - 1, 0))) Is Nothing Then
With
Application.CommandBars("cell").Controls.Add(Type: =msoControlButton,
befo=5, temporary:=True)
.Caption = "REMOVE PAY CYCLE from TEMPLATE FEED"
.OnAction = "RemovePayCycle" 'runs this sub located in the
RemoveItem Module
.Tag = "rpct"
End With
End If

End Sub

--
MacGuy


"Breakfast Guy" wrote:


Is this the only user on xl2000? can you post your entire option
assignment code?


--
Breakfast Guy
------------------------------------------------------------------------
Breakfast Guy's Profile: http://www.thecodecage.com/forumz/member.php?userid=5
View this thread: http://www.thecodecage.com/forumz/showthread.php?t=6880

Right Click Option Missing
 

I see nothing wrong with the code as such you could make things a little
more generic: -If Not Application.Intersect(Target, _
Range([a1].Offset(1, 0),
[a1].Offset(ActiveSheet.UsedRange.Rows.Count - 1, 0))) Is Nothing Then-
could read:
-If Not Application.Intersect(Target, _
Range("A1").Offset(1, 0),
Range("A1").Offset(ActiveSheet.UsedRange.Rows.Coun t - 1, 0))) Is
Nothing Then-
if the code is in a worksheet module you could further qualify it by
using: -Me.Range("A1").OffSet(1,0)...etc-

You can find all the data you need on this subject he 'How to
customize menus and menu bars in Excel' (http://tinyurl.com/637bxz)


--
The Code Cage Team

Regards,
The Code Cage Team
www.thecodecage.com
------------------------------------------------------------------------
The Code Cage Team's Profile: http://www.thecodecage.com/forumz/member.php?userid=2
View this thread: http://www.thecodecage.com/forumz/showthread.php?t=6880