Is there a way to VBA a file to Google Sites?

Dim wb As Workbook, myFileName As String, myVal As Long, myMax As Long
    Dim strPath As String, fname As String, i As Integer
        If MsgBox("Have you printed your worksheets yet?", vbYesNo) = vbNo Then Exit Sub
        Application.ScreenUpdating = False
        Sheets("ESTIMATING").Select
        ActiveWorkbook.Save
        strPath = "\\SIDONNA\Clients\"
        On Error GoTo Failure
        Calculate
        myFileName = Range("A10").Value & ".xls"
'        ThisWorkbook.Worksheets("Estimating").Range("A10") = myFileName
            On Error GoTo Failure
                If Dir(strPath, vbDirectory) <> "" Then
            On Error GoTo 0
                ThisWorkbook.SaveCopyAs strPath & myFileName
            Else
                MsgBox "The directory to save the file cannot be found. " & vbCrLf & "So your data will not be sent." & vbCrLf & "Go get Michael!"
                Exit Sub
            End If
Failure:
        If Err = 52 Then
            MsgBox "You don't have a Network Connection. Or a computer is not turned on?"
        End If
        Application.ScreenUpdating = True