macro help to copy all sheets

Hello,
please i need your help

how to make this macro copy all sheets not only Sheet1

Sub CopySheetToMultipleWorkbooks()
Dim SourceSheet As Worksheet
Dim FileDialog As FileDialog
Dim FileName As Variant
Dim TargetWorkbook As Workbook

' Set the source sheet
Set SourceSheet = ThisWorkbook.Sheets("Sheet1") ' <-- Change to your sheet name

' Open file dialog to select workbooks
Set FileDialog = Application.FileDialog(msoFileDialogFilePicker)
With FileDialog
.AllowMultiSelect = True
.Title = "Select Workbooks to Copy Sheet To"
.Filters.Add "Excel Files", "*.xls; *.xlsx; *.xlsm", 1
If .Show <> -1 Then Exit Sub ' If user cancels
For Each FileName In .SelectedItems
Set TargetWorkbook = Workbooks.Open(FileName)

' Copy the sheet to the end
SourceSheet.Copy After:=TargetWorkbook.Sheets(TargetWorkbook.Sheets.Count)

' Optional: Save & close
TargetWorkbook.Save
TargetWorkbook.Close
Next FileName
End With

MsgBox "Sheet copied to all selected workbooks!", vbInformation
End Sub

Book1.xlsx

Please Login or Register  to view this content.

Thank You so much Logit !!
Your solution works perfectly 👍☺️

You are welcome.