makro ile toplu şekilde kaydettirme

[yNsr43]

arkadaşlar merhaba, bu kod ile tek tek kaydettirebiliyorum bunu nasıl klasördekileri kaydettirebilrim.
şimdiden teşekkürler.

Sub Genel()
    Range("A2") = ActiveSheet.Name
    
    ActiveSheet.Name = "Genel"
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:="C:\Users\Genel.xlsx", FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False
        Application.DisplayAlerts = False
ActiveWorkbook.Close
End Sub

 

[yNsr43]

güncel :yardim: