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

"Joseph Spain" wrote in
message news:8ygbe.5462$Bb.292@okepread06...
Hi,

I would like to request a macro that can do the following tasks:

1. check to see if three specific network paths are available
2. save to all of the network paths that are available, without
generating errors (or messages) for the paths that are not available

Any ideas? Hopefully, someone already has written such a macro.

As always, thanks very much for your assistance and suggestions

Best regards,
Joseph