Excel VBA Code to Scan file by file

Sub my23rdStep()

    Dim wbDest As Workbook
    Dim wbSource As Workbook
    

    Dim sFileName As String
    ChDir "C:\Users\KENT\Desktop\Assets\"
    sFileName = Dir("*.xlsx")
    
    Do While Len(sFileName) > 0
    Debug.Print sFileName
    
    Set wbDest = ActiveWorkbook
    
    ' Open each file
    Workbooks.Open "C:\Users\KENT\Desktop\Assets\" & sFileName
    Set wbSource = ActiveWorkbook
    wbSource.Close savechanges:=False
    
    sFileName = Dir
    
    Loop

End Sub