Copy worksheet to various folders

[ipbr21054]

Hi,
I have file called INFO
I also have Folders of which all have the file INFO within.
Folders are named like so JUNE JULY AUGUST ETC ETC

As opposed to copy / paste manually to every folder can this be done using some kind of code etc
Basically i need to put the same file into each folder in one step as opposed to many times of doing the same thing.
I understand that the existing file in the folder will be replaced & that is fine,

 

[ipbr21054]

I think the below is now correct with the above post request.

Private Sub NewFileToFolders_Click()
    Dim FileName As String
    Dim SaveName As String
    Dim FromPath As String
    Dim ToPath As String
    Dim fldrArr As Variant
    Dim x      As Long
    Dim FSO    As Object
    FileName = "TESTFILE.xlsm"
    SaveName = "SUMMARY.xlsm"
    FromPath = "C:\Users\Ian\Desktop\EBAY\ACCOUNTS\"
    ToPath = "C:\Users\Ian\Desktop\EBAY\ACCOUNTS\CURRENT SHEETS\"
    fldrArr = Array("04 APRIL", "05 MAY", "06 JUNE", "07 JULY", "08 AUGUST", "09 SEPTEMBER", "10 OCTOBER", "11 NOVEMBER", "12 DECEMBER", "13 JANUARY", "14 FEBRUARY", "15 MARCH", "16 APRIL")
    On Error Resume Next
    For x = LBound(fldrArr) To UBound(fldrArr)
        Set FSO = CreateObject("Scripting.FileSystemObject")
        FSO.CopyFile Source:=FromPath & FileName, Destination:=ToPath & fldrArr(x) & "\" & SaveName
    Next x
    MsgBox "ALL FILES NOW TRANSFERED TO FOLDERS", vbInformation, "CONFIRMATION MESSAGE"
    Set FSO = Nothing
End Sub

 

[rollis13]

Yes, that's it . Thanks for the positive feedback, glad having been of some help.

 

[ipbr21054]

@rollis13 maybe you can assist as this was your code that i used.

Many thanks