SaveAs (Archive)

[Guest]

To be more specific; I would like replace Master with the value of cell H4 which is Week Start Date in long date format
Thanks in advance

Private Sub ok1_Click(
ChDir "C:\
ActiveWorkbook.SaveAs Filename:="C:\Master.xls
Unload M
End Su

 

[Bob Phillips]

Private Sub ok1_Click()
ChDir "C:\"
ActiveWorkbook.SaveAs Filename:="C:\" & Format(Range("H4"), "yyyy mm
dd") & ".xls"
Unload Me
End Sub


--

HTH

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

To be more specific; I would like replace Master with the value of cell H4

which is Week Start Date in long date format.

 

[Guest]

Many Thanks
Works perfectly.