SaveAs Macro Help

[bradpallister]

Hi

I have a worksheet template (a type of form to be filled out).


I would like to SaveAs a worksheet named after one particular cell (this cell is different with every form that is filled out), perhaps with a macro or similar.


Anyone have any ideas how to do this?


Many thanks

 

[Luke M]

Sub SaveAsName()

Dim MyDir As String

Dim MyName As String


'Change these as desired/needed

MyDir = "C:My Documents"

MyName = Range("A1").Value


    ActiveWorkbook.SaveAs Filename:=MyDir & MyName & ".xls"

End Sub

 

[bradpallister]

brilliant, thanks Luke M