ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path _
& "\" & Range("C1").Value

becomes

ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\John Smith.xls"



"ielmrani via OfficeKB.com" wrote:

Hi,
This code works for me but one issue. I want to save the file under the
first and last name only.

Code:

Sub SaveFile()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets("Report").Copy
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path _
& "\" & Range("C1").Value
ActiveWorkbook.Close
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

C1 = John Smith 12/15/1945

what do I need to change in the code to make it save the file as: John Smith

Thanks

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...excel/200806/1

--

Dave Peterson