Run to all excel files in a folder

[Abegail0203]

Hello,

I have a macro that runs only in a sheet. I want your assistance to have the macro to run on all files in a folder.

This is my current macro:

Sub yellow()

Range("a1:z500").Select
For Each Cell In Selection
If Cell.Interior.Color = Excel.XlRgbColor.rgbYellow Then
Cell.Clear
End If
Next
End Sub


The macro will remove/clear all values in a cell highlighted in yellow.
I would like to run a macro that will do it for all the files in a specific folder in one single click.

Thank you.

 

[John_w]

Add this macro:

Public Sub All_Workbooks_In_Folder()
    folder = "C:\path\to\folder\"  ' <--------- CHANGE THIS
    file = Dir(folder & "*.xlsx")
    While file <> vbNullString
        Workbooks.Open folder & file
        yellow
        ActiveWorkbook.Close True
        file = Dir
    Wend
    MsgBox "Done"
End Sub

 

[Abegail0203]

Add this macro:

Public Sub All_Workbooks_In_Folder()
    folder = "C:\path\to\folder\"  ' <--------- CHANGE THIS
    file = Dir(folder & "*.xlsx")
    While file <> vbNullString
        Workbooks.Open folder & file
        yellow
        ActiveWorkbook.Close True
        file = Dir
    Wend
    MsgBox "Done"
End Sub

Thanks!