Hello every one. I have a excel sheet that have some macros in.
What i want to do its when i click in a button print, create a pdf that its copy and past in two different folders.
and that its my problem, create on pdf easy, past in the same folder that excel is, easy.
But past in different folder i am try and try but not successful, and past in two different folders heaven harder.

Anyone can help me ?

Sub PDF()

Dim wsA As Worksheet
Dim wbA As Workbook
Dim strName As String
Dim strPath As String
Dim strFile As String
Dim strPathFile As String
Dim FSO As Object
Dim FromPath2 As String
Dim ToPath2 As String
Dim ToPath3 As String
Dim myFile As Variant
On Error GoTo errHandler

Set wbA = ActiveWorkbook
Set wsA = ActiveSheet

'get active workbook folder, if saved
strPath = wbA.Path
If strPath = "" Then
  strPath = Application.DefaultFilePath
End If
strPath = strPath & "\"

strName = wsA.Range("D1").Value _
          & " Nș" & wsA.Range("H3").Value _
          & " - " & wsA.Range("H4").Value

'create default name for saving file
strFile = strName & ".pdf"

strPathFile = strPath & strFile

'export to PDF in current folder
    wsA.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=strPathFile, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        FromPath2 = "G:\My disk\Buy\" & strPathFile 'Souce Folder
        ToPath2 = "\\Shared_Drive\PEP\NC"    'Destination folder
        ToPath3 = "\\Shared_Drive\Buy\PEP\NC"    'Destination folder

       FSO.CopyFolder Source:=FromPath2, Destination:=ToPath2 and Destination:=ToPath3
       MsgBox "Ficheiros Foram Copiados "
    'confirmation message with file info
    MsgBox "PDF file has been created: " _
      & vbCrLf _
      & strPathFile

    Exit Sub
    MsgBox "Could not create PDF file"
    Resume exitHandler
End Sub

    End Sub