Mike

Bit short on detail, but if you want to copy A1 on Sheet1 to A1 on Sheet2
and then clear the original it would be

Sub ClearDataAfterCopy()
Worksheets("Sheet2").Range("A1").Value = _
Worksheets("Sheet1").Range("A1").Value
Worksheets("Sheet1").Range("A1").Clear
End Sub


--
HTH
Nick Hodge
Microsoft MVP - Excel
Southampton, England
www.nickhodge.co.uk
HIS


"Mike" wrote in message
...
i want to save a figure from a worksheet to another worksheet before i
reset
the first one has anyone got any idea how i would do it please