Loop through each folder copy values from range in file1 to named range in file2

I have a list of Folders in a directory

Folder1
Folder2
Folder3
Folder4
Folder5
....... Continues for a total of 20 folders


Each folder contains 2 files
Example Start::
In folder1 the files are called
Folder1 - Q4(RawData).xls
Folder1 - Q4(Graphs).xlsx

Folder2 the files are called
Folder2 - Q4(RawData).xls
Folder2 - Q4(Graphs).xlsx
Example End


For each Subfolder in directory do the following:
1. open ????? - Q4(RawData).xls
Sheet name I - Copy Range("A3:C15") -to- range IChartdata in ????? - Q4(Graphs).xlsx
Sheet name L - Copy Range("A3:G15") -to- range LChartdata in ????? - Q4(Graphs).xlsx
Sheet name R - Copy Range("A3:I15") -to- range RChartdata in ????? - Q4(Graphs).xlsx
Sheet name M - Copy Range("A3:H15") -to- range MChartdata in ????? - Q4(Graphs).xlsx

2. Goto next folder and do step 1


I recorded the following code but I need help on make this work for all folders.


Thanks
Steve

Sub UpdateAll()
'
' UpdateAll Macro
'

'
    Windows("Hospitalist - Q4 (Raw Data).xls").Activate
    Range("A3:C15").Select
    Selection.Copy
    Windows("Hospitalist - Q4 (Graph).xlsx").Activate
    Range("B3").Select
    Range("B3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("Hospitalist - Q4 (Raw Data).xls").Activate
    Sheets("LOS").Select
    Range("A3:G15").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("Hospitalist - Q4 (Graph).xlsx").Activate
    Sheets("LOS").Select
    Range("A3").Select
    Windows("Hospitalist - Q4 (Raw Data).xls").Activate
    Windows("Hospitalist - Q4 (Graph).xlsx").Activate
    Range("A3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("Hospitalist - Q4 (Raw Data).xls").Activate
    Sheets("Readmission Rate").Select
    Range("A3:I15").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("Hospitalist - Q4 (Graph).xlsx").Activate
    Sheets("Readmission Rate").Select
    Range("B3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("Hospitalist - Q4 (Raw Data).xls").Activate
    Sheets("Mortality").Select
    Range("A3:H15").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("Hospitalist - Q4 (Graph).xlsx").Activate
    Sheets("Mortality").Select
    Range("A3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A1:H1").Select
    Windows("UpdateAll.xlsm").Activate
End Sub