Run Macro to Consolidate Multiple Tabs to One with same format with tab name added as column

[kelbrod]

I need to consolidate about 50 tabs to one master. All tabs have the same format A-G. I would like the master tab to include the name of the tab in a new column "H" so I know which data came from which tab. I tried running a macro I found online and am getting an error "Compile Error: Sub or Function not defined". I oould not find how to attach a file so cannot share the macro yet.

This is a Excel enabled macro workbook (xlsm) and I've run other macros without fail so not sure why I am getting this error?

Thank you.

 

[mumps]

This macro assumes there are headers in A1:G1 of all the sheets to be copied and the "Master" sheet has headers in A1:H1. Make sure you have a sheet named "Master".

Sub consolidateSheets()
    Application.ScreenUpdating = False
    Dim LastRow As Long, bottomH As Long, ws As Worksheet, desWS As Worksheet
    Set desWS = Sheets("[COLOR="#FF0000"]Master[/COLOR]")
    For Each ws In Sheets
        If ws.Name <> "Master" Then
            ws.UsedRange.Offset(1, 0).Copy desWS.Cells(desWS.Rows.Count, "A").End(xlUp).Offset(1, 0)
            LastRow = desWS.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
            bottomH = desWS.Range("H" & desWS.Rows.Count).End(xlUp).Row
            desWS.Range("H" & bottomH + 1 & ":H" & LastRow) = ws.Name
        End If
    Next ws
    Application.ScreenUpdating = True
End Sub