Unfortunately, it is not as simple as a loop to solve this. If you stick the following code (changing the Path2 to your documents folder) into a new, unsaved worksheet and run. It will fail to save the worksheet despite Path2 being valid. Any ideas?
Sub FirstTimeSave1()
Dim Path1 As String
Dim Path2 As String
Dim FileSaveName As String
Path1 = "Any URL e.g. the BBC's website"
Path2 = "C:\Users\Mike Magill\Documents\"
FileSaveName = "Test.xlsm"
On Error Resume Next
ThisWorkbook.SaveAs Filename:=Path1 & FileSaveName _
, FileFormat:=52, CreateBackup:=False
If Err.Number <> 0 Then
Err.Clear
MsgBox "Despite not saving, the workbook's full name is now: " & ThisWorkbook.FullName
Else
Exit Sub
End If
ThisWorkbook.SaveAs Filename:=Path2 & FileSaveName _
, FileFormat:=52, CreateBackup:=False
If Err.Number <> 0 Then
Err.Clear
MsgBox "Valid second path not saved. The workbook's full name is still: " & ThisWorkbook.FullName
End If
End Sub