This code will work with a hot-key that you assign with Macro-Macros, select macro name, Options, then add your letter key.
Sub sPaste()
'This module code pastes the formulas of the current selection,
'to the active range. The option has been set to Hot-key Ctrl-s
ActiveCell.Select
'Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
'False, Transpose:=False
'Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
'False, Transpose:=False
Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub
Note: the code above includes two other paste opions that are commented out!
You select the cell to copy hit copy then select the cell to paste to, then hit your hot-key. JSW
_________________<INPUT type="JSW" value=" Excel On... Coder's!" ID=Text1><spanstyle='font-size:36.0pt;color:#FFCC00'>JSW<o
></o
></span>[/b]</p><spanstyle='font-size:36.0pt;color:#FFCC00'>Try and try again, " The way of the coder!"<o
></o
></span>[/b]
This message was edited by Joe Was on 2002-10-04 14:29