Hi Michael
Here is one possibility...
Copy the sub below into the ThisWorkbook module of your Personal.xls file.
The code creates 2 new options on your "Edit" menu to copy the selected
range as values or formulae.
Private Sub Workbook_Open()
On Error Resume Next
With Application.CommandBars("Worksheet Menu Bar").Controls("Edit")
..Reset
..Controls.Add Type:=msoControlButton, ID:=2950, Before:=8
..Controls(8).Caption = "Paste Values"
..Controls(8).Style = msoButtonIconAndCaption
..Controls(8).OnAction = ThisWorkbook.Name & "!vals"
..Controls(8).FaceId = 22
..Controls.Add Type:=msoControlButton, ID:=2950, Before:=8
..Controls(8).Caption = "Paste Formulae"
..Controls(8).Style = msoButtonIconAndCaption
..Controls(8).OnAction = ThisWorkbook.Name & "!formlae"
..Controls(8).FaceId = 22
End With
End Sub
Copy the 2 subs below into a general module of your Personal.xls file.
Sub vals()
On Error Resume Next
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub
Sub formlae()
On Error Resume Next
Selection.PasteSpecial Paste:=xlPasteFormulas
Application.CutCopyMode = False
End Sub
To copy a range as values or formulae, select the range you want to copy,
right click and select "Copy" - then select the first cell of the
destination range and from the "Edit" menu, select "Edit>Paste Values" or
"Edit>Paste Formulae".
--
XL2002
Regards
William
[email protected]
| Is there a way to change the default settings in the Paste operation
| to paste _only_ the cell contents-- values,formulas-- _without_
| pasting the formatting?
|
| Clicking the "paste special" and manually choosing either "values" or
| "formulas" is getting old...
|
| I don't see an option in the "options" menu. ;>
|
| Appreciate your help,
| Michael