Hi,

Try this. Note I used XLSX as the file extension because I'm using e2007 so
change to the apppropriate one for you

Sub MyBackup()
Application.DisplayAlerts = False
ActiveWorkbook.Sheets("Data").Copy
ActiveWorkbook.SaveAs Filename:="C:\MyBackup.xlsx"
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub
--
Mike

When competing hypotheses are otherwise equal, adopt the hypothesis that
introduces the fewest assumptions while still sufficiently answering the
question.


"****al shah" wrote:

Hi I have I workbook I that I have more than 10 worksheet I want to take a
backup of only 1 worksheet which name is €œData€� that is to store in other
folder & when I take backup next time it should over write lake backup any
help.

Thanks