Changes to a VBA code

[einstein_mc2]

Hi Guys, I got this awhile back, and VBA not being my strongest area I
was just wondering if it could be changed? I need to change instead of
using "Client Name.xls" I need the text in cell "B13" to be used which
would be the clients name. Any help would be great Thanks

Sub SaveOneFile()
Dim fn As Variant
fn = Application.GetSaveAsFilename("Client Name.xls", _
"Quote Form,*.xls", 1, "Select your folder and filename")
If TypeName(fn) = "Boolean" Then Exit Sub
ActiveWorkbook.SaveAs fn
End Sub

 

[Mangesh Yadav]

fn = Application.GetSaveAsFilename(Worksheets("Sheet1").Range("B13"), _
"Quote Form,*.xls", 1, "Select your folder and filename")

Please change the worksheet name as per your requirement

Mangesh

 

[einstein_mc2]

Fantastic that works great, the only problem I have is this code is
used in six sheets all with different titles. I'm not sure how to write
this into the code.

 

[Jim May]

Maybe Instead of using the

Worksheets("Sheet1")

try:

Activesheet