title: Excel vba: copy file from one folder to many folders simultaneously
body: <p>I want to copy files from one directory to several others, I (with searching help and ready code) succeeded in doing that, the problem is :</p>
  
  <p>The macro waits till it finishes copying all files from source to destination 1, then start copying to destination 2</p>
  
  <p>I want either to:</p>
  
  <p>Copy the 1st source to all destinations at the same time then move to source 2
  OR start copying all source files to destination 1 then move to start copying all source files to destination 2 **</p>
  
  <h2>without waiting</h2>
  
  <p>**:</p>
  
  <p>I use the following to code to copy:</p>
  
  <pre><code>Sub All()
  
      For Each C In Worksheets("Path").Range("A2:A21")
      If C.Value = "" Then GoTo 1
      Call CopyFolder
  
      Application.ScreenUpdating = True
          Next C
  
  1 
  End Sub
  
  '================================================
  
  Sub CopyFolder()
      Dim fso As Object
      Dim FromPath As String
      Dim ToPath As String
  
      FromPath = "C:\video"  
      ToPath = C &amp; ":\video"    
  
  
      If Right(FromPath, 1) = "\" Then
          FromPath = Left(FromPath, Len(FromPath) - 1)
      End If
  
      If Right(ToPath, 1) = "\" Then
          ToPath = Left(ToPath, Len(ToPath) - 1)
      End If
  
      Set fso = CreateObject("scripting.filesystemobject")
  
      If fso.FolderExists(FromPath) = False Then
          MsgBox FromPath &amp; " doesn't exist"
  
          Exit Sub
      End If
  
      fso.CopyFolder Source:=FromPath, Destination:=ToPath
  
  End Sub
  </code></pre>