VBA Button to Import Data

[bcuhz69]

Hello,

I hope everyone is doing well. I would like to be able to import 1 or more excel files from a designated folder and all their tabs into an excel file that is already open . I was able to find the following code, but when I run it, nothing happens. I also do not receive any error. Any help would be greatly appreciated. Thanks in advance


VBA Code:

Private Sub CommandButton1_Click()

Dim directory As String, fileName As String, sheet As Worksheet, total As Integer

Application.ScreenUpdating = False
Application.DisplayAlerts = False

directory = "C:\Users\XX\OneDrive\Desktop\z"
fileName = Dir(directory & "*.xl??")

Do While fileName <> ""
Workbooks.Open (directory & fileName)

For Each sheet In Workbooks(fileName).Worksheets
total = Workbooks("import-sheets.xlsm").Worksheets.count
Workbooks(fileName).Worksheets(sheet.Name).Copy _
after:=Workbooks("import-sheets.xlsm").Worksheets(total)
Next sheet

Workbooks(fileName).Close
fileName = Dir()
Loop

Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub