Looping through a Copy & Paste

I have a piece of code that opens a separate Workbook, copy and pastes a few columns, saves and closes the separate workbook: (YYZ.xlsm). I have about 30 other Workbooks in a folder I want to do this to. How can I change this to just open a folder and do the copy and paste function to all workbooks in the folder? Just loop through a folder of workbooks: YYZ, YYX, YYA etc... performing the same function.

    
    Workbooks.Open Filename:= _
    "K:\DRIVE\FOLDERPATH\FOLDERPATH\FOLDER\YYZ.xlsm"
    Application.AskToUpdateLinks = False
    Windows("Final.xlsm").Activate
    Columns("J:K").Select
    Selection.Copy
     
    
    Windows("YYZ.xlsm").Activate
    Sheets("Atts").Select
    Range("A1").Select
     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveWorkbook.Save
    ActiveWindow.Close
    
End Sub

Thanks