Code now gives an error

[daniels012]

This is my attempt. Does this look close to what I am looking for?

[VBA]End If
If Dir(strPath, vbDirectory) <> "" Or If Dir(strPath2, vbDirectory) <> "" Then msgbox "The directory to save the file cannot be found. So your data will not be sent." Exit Sub
ElseIf Dir(strPath, vbDirectory) <> "" Then
ThisWorkbook.SaveCopyAs strPath & myFileName
ElseIf Dir(strPath2, vbDirectory) <> "" Then ThisWorkbook.SaveCopyAs strPath2 & myFileName
End If
End Sub[/VBA]

Michael