Hi,

Worksheets("Sheet2").Cells.Copy
Worksheets("Sheet1").Cells.PasteSpecial Paste:=xlPasteValues
Application.DisplayAlerts = False
Worksheets("Sheet2").Delete
Application.DisplayAlerts = True


"TK" wrote in message
. ..
Has anybody done this?
Is there a way I can save the current cell values in sheet 1, delete my
data
sheet (sheet 2) with a macro?

Thanks