Can anyone help determine why I am getting an error message. Its stopping on the last line of code. The name of the file is in Cell
VBA Code:
Sub Macro1()
Dim Path1 As String
Dim Path2 As String
Dim fpathname As String
Path1 = "C:\MACRO1"
Path2 = Range("B2")
fpathname = Path1 & "\" & Path2 & ".xls"
ActiveWorkbook.SaveAs Filename:=fpathname
End Sub
Last edited by a moderator: