You may want to look at SaveCopyAs in VBA's help for another alternative.



Joseph Spain wrote:

"Vasant Nanavati" <vasantn *AT* aol *DOT* com wrote:

Untested since I'm not networked right now:

Sub SaveToAllPaths(strPath1 As String, strPath2 As String, strPath3 As
String)
On Error Resume Next
With ThisWorkbook
.SaveAs strPath1 & "\" & .Name
.SaveAs strPath2 & "\" & .Name
.SaveAs strPath3 & "\" & .Name
End With
End Sub

--

Vasant

Thanks much. I modified your idea slightly, and it works flawlessly.
Good work.

Best regards,
Joseph

--

Dave Peterson