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