Macro that opens an xls file then saves it with another name

[Captain Snuggles]

I just want to be able to call an existing excel file, junk.xls, then
save it as notjunk.xls. Any ideas?

 

[Don Guillett]

No need to open to rename. Look in the vba help index for NAME

 

[JLGWhiz]

I think this will work.

Sub Vert()
myPath = ThisWorkbook.Path
Set wb = Workbooks.Open Filename:=myPath & "\junk.xls"
wb.SaveAs filename:="notjunk.xls"
End Sub