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

Maybe something like this, save your file before running this;

Sub DelSht()
On Error GoTo ErrorHandler
Application.DisplayAlerts = False
With Sheets("Sheet1")
.Cells.Copy
.Cells.PasteSpecial Paste:=xlValues
End With
Sheets("Sheet2").Delete
ErrorHandler:
Application.DisplayAlerts = True
End Sub

Hope this helps
Rowan

"TK" wrote:

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

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