i would like to add paste value to the menu when you right click a cell
to save time going to paste special


--
ceemo
------------------------------------------------------------------------
ceemo's Profile: http://www.excelforum.com/member.php...o&userid=10650
View this thread: http://www.excelforum.com/showthread...hreadid=570634

Hi Ceemo,

i would like to add paste value to the menu when you right click a cell
to save time going to paste special

Try:

'=============
Public Sub Tester()
Dim iCtr As Long
iCtr = Application.CommandBars("Cell"). _
FindControl(ID:=22).Index
Application.CommandBars("Cell").Controls. _
Add Type:=msoControlButton, ID:=370, _
Befo=iCtr + 1
End Sub
'<<=============


---
Regards,
Norman

thats exactly what i wanted many thanks !!

Is there a way to apply this to every book i open without having to ad
the code each time

--
ceem
-----------------------------------------------------------------------
ceemo's Profile: http://www.excelforum.com/member.php...fo&userid=1065
View this thread: http://www.excelforum.com/showthread.php?threadid=57063

in case it matters i run in excel 200

--
ceem
-----------------------------------------------------------------------
ceemo's Profile: http://www.excelforum.com/member.php...fo&userid=1065
View this thread: http://www.excelforum.com/showthread.php?threadid=57063

Hi Ceemo,

Is there a way to apply this to every book i open without having to add
the code each time?

This is an application setting; the amended right-click menu will be
avaialble to all open workbooks.


---
Regards,
Norman