Hi John
try

Change cell to fit your needs


Sub Macro1()
'
' Macro1 Macro
'

'
Range("B3").Select ' this is where the formula is
Selection.Copy
Sheets("Sheet2").Select
Range("B2").Select ' this is the cell where you want to copy the results
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
End Sub


"John" wrote:

need only the results of a formula to be transferred to sheet 2 ...cannot
have the formula