psate values in right click

[ceemo]

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

[Norman Jones]

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, _
Before:=iCtr + 1
End Sub
'<<=============


---
Regards,
Norman

[ceemo]

thats exactly what i wanted many thanks !!

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

[ceemo]

in case it matters i run in excel 2003

[Norman Jones]

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