File Backup & Rename As Cell

B

Bob Beard

Excel 2000

I need to save a file into another folder [u:\BackUp]
using whatever is in cell H6 [a number] as the file name.

I then need to go back to the original file and increment
cell H6 by 1.

Any help much appreciated.

Bob.
 
B

Bob Phillips

ActiveWorkbook.SaveAs Filename:= "u:\Backup\" & Range("H6").Value &
".xls"
Range("H6").Value = Range("H6").Value + 1

This will change the name of the activeworkbok, so if that is not what is
desired, you could use SaveCopyAs, instead of SaveAs.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
 
Top