Hi,

I have a subroutine that was working fine yesterday when I finished up, but now when I run it today I get the run-time error. Any ideas?
Public Col(1 To 14) As Long
Public lst As ListObject

Sub GetHeaders()
    
    'This sub is run when the workbook is first open and populates the column variables
    'These are parsed to the report subs below and means the columns can be rearranged
    'But the reports will still filter on the right columns
    Set lst = ActiveSheet.ListObjects("tbl_DHS")
    
    Col(1) = Application.Match("Report SLA A", lst.HeaderRowRange, 0)
    Col(2) = Application.Match("Date of First Contact Attempt", lst.HeaderRowRange, 0)
    Col(3) = Application.Match("Report SLA B", lst.HeaderRowRange, 0)
    Col(4) = Application.Match("Contact Date to Schedule Appointment", lst.HeaderRowRange, 0)
    Col(5) = Application.Match("Report SLA D", lst.HeaderRowRange, 0)
    Col(6) = Application.Match("DMA Referral Appointment Attendance Date", lst.HeaderRowRange, 0)
    Col(7) = Application.Match("Report SLA G", lst.HeaderRowRange, 0)
    Col(8) = Application.Match("DNA 1 date (new)", lst.HeaderRowRange, 0)
    Col(9) = Application.Match("Report Telephone", lst.HeaderRowRange, 0)
    Col(10) = Application.Match("Report SLA E", lst.HeaderRowRange, 0)
    Col(11) = Application.Match("DMA Report Received Date", lst.HeaderRowRange, 0)
    Col(12) = Application.Match("Report SLA F", lst.HeaderRowRange, 0)
    Col(13) = Application.Match("Resubmission date", lst.HeaderRowRange, 0)
    Col(14) = Application.Match("DMA Report Returned to Provider Date", lst.HeaderRowRange, 0)
    
End Sub