Plotting Excel data from several workbooks together automatically.

Hey Jamiu-

Maybe try using some code like this to loop through your folder.  Please reference code comments to see what each line of code does...

Sub TestLoop()

    'Declarations
    Dim fileName As Variant
    Dim myFilePath As String
    Dim myChart As Chart
    
    myFilePath = "C:\Users\mmickle1\Documents\Excel Ideas & Stuff\"
    fileName = Dir(myFilePath)
    
    While fileName <> ""
      
        Debug.Print fileName 'This example will print the file name to the immediate window
        Set Wkbk = Workbooks.Open(myFilePath & fileName)     'Open Workbook
        Set myChart = ActiveSheet.Shapes.AddChart(xlColumnClustered).Chart 'Add Chart
        myChart.SetSourceData Source:=ActiveSheet.Range("A2:A30") 'Set DataSource Range
        Wkbk.Close SaveChanges:=True  'Close file and save changes
        fileName = Dir 'Set the fileName to the next file
        
    Wend
    
End Sub