list 2 cell values in saveas filename
Hello
I am trying to use VBA to save a file and want two cell values in the new filename. One is a text value in cell B2, the other is a date in cell B1. I have tried this many ways but cannot get it to work. Below is a modified example that I found on the net:
Sub filesave()
Dim Path As String
Dim Rep As String
Dim RDate As Date
Path = "C:\MyFiles\"
Rep = Range("B2").Value
RDate = Range("B1").Value
ActiveWorkbook.SaveAs filename:=Path & Rep & RDate & ".xls", _
FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub
Please let me know what is causing this code to error out.
Thanks
Scott
|