I keep receiving a compile error in excel with my macro - vba

Question

I keep receiving a compile error in excel with my macro.
I'm trying to make a macro in a shared workbook (I will unshare the workbook to use the macro) and have it copy over to another file (The master file that is unshared and has graphs)
Sub Macro()
Dim directory As String, FILEnAME As String, sheet As Worksheet, total As Integer
Application.ScreenUpdating = False
Application.DisplayAlerts = False
directory = "C:\Users\bucklej\Desktop"
FILEnAME = Dir(directory & "Copy of AMS Engineering Transitions Database")
Do While FILEnAME <> ""
Loop
Workbooks.Open (directory & FILEnAME)
For Each sheet In Workbooks(FILEnAME).Worksheets
total = Workbooks("Copy of AMS Engineering Transitions Database.xls").Worksheets.Count
Workbooks(FILEnAME).Worksheets(sheet.Name).Copy_
after: Workbooks("Copy of AMS Engineering Transitions Database.xls").Worksheets (total)
Next sheet
Workbooks(FILEnAME).Close
FILEnAME = Dir()
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Recently updated code still getting a compile error
Sub Macro()
Dim directory As String, FILEnAME As String, sht As Worksht, total As Integer
Application.ScreenUpdating = False
Application.DisplayAlerts = False
directory = "C:\Users\bucklej\Desktop\"
FILEnAME = Dir(directory & "Copy of AMS Engineering Transitions Database.xls")
Do While FILEnAME <> ""
Loop
Workbooks.Open (directory & FILEnAME)
For Each sht In Workbooks(FILEnAME).Workshts
total = Workbooks("Copy of AMS Engineering Transitions Database.xls").Workshts.Count
Workbooks(FILEnAME).Workshts(sht.Name).Copy_
after: Workbooks("Copy of AMS Engineering Transitions Database.xls").Worksht (total)
Next sht
Workbooks(FILEnAME).Close
FILEnAME = Dir()
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

Answer 1

This compiles.
Note that the named arguments like After in the Copy method must be stated like After:=..., you had forgotten the =.
I also note in your revised code that you have changed .Worksheets to .Workshts. I am not sure why you did this, but there is no such member as a Worksht so that will also raise an error.
You need to make sure that your FILENAME variable has a file extension. Yours did not.
FYI from the Debug menu you can test compile the project at any time, and it should help identify what the source of the error is.
Sub Macro()
Dim directory As String, FILENAME As String, sht As Worksheet, total As Integer
Application.ScreenUpdating = False
Application.DisplayAlerts = False
directory = "C:\Users\bucklej\Desktop\"
FILENAME = Dir(directory & "Copy of AMS Engineering Transitions Database.xls")
Do While FILENAME <> ""
Loop
Workbooks.Open (directory & FILENAME)
For Each sht In Workbooks(FILENAME).Worksheets
total = Workbooks("Copy of AMS Engineering Transitions Database.xls").Worksheets.Count
Workbooks(FILENAME).Worksheets(sht.Name).Copy after:=Workbooks("Copy of AMS Engineering Transitions Database.xls").Worksheets(total)
Next sht
Workbooks(FILENAME).Close
FILENAME = Dir()
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Note that this loop does nothing:
Do While FILENAME <> ""
Loop