Hi All, so I have been working on this macro for the past day and I happened to also update to Office 2016 today. Now, I am getting a compile error = Expected Variable or Function for every one of my Range or Selection code lines... does anyone know if something changed... or what is happening here? here it the code... first error occurs at line "Range(Selection, Selection.End(xlDown)).Select" right after the Range("Q24").Select line

Option Explicit
Sub Hearings()
'
    Application.ScreenUpdating = False
    Application.StatusBar = False
    Application.DisplayAlerts = False
    Application.EnableEvents = False
    Application.Calculation = xlCalculationManual
'
    Sheets("FLHearingsMaster").Select
    Range("Q24").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.ClearContents
'
    Dim a, i As Long, myMin As String, AMPM As String, m As Object
    With Range("J24", Range("J" & Rows.Count).End(xlUp))
        a = .Value
        With CreateObject("VBScript.RegExp")
            .IgnoreCase = True
            .Pattern = "(\d{1,2})( *([ap]m)|:(\d{2}) *([ap]m)?|(\d{2}) *([ap]m))"
            For i = 1 To UBound(a, 1)
                If TypeName(a(i, 1)) = "Double" Then a(i, 1) = _
                Format$(a(i, 1), "hh:mm am/pm")
                If .test(a(i, 1)) Then
                    Set m = .Execute(a(i, 1))(0).submatches
                    myMin = m(3) & m(5)
                    If myMin = "" Then myMin = "00"
                    AMPM = m(2) & m(4) & m(6)
                    If Trim$(AMPM) = "" Then
                        Select Case Val(m(0))
                        Case 8 To 11: AMPM = " AM"
                        Case Else: AMPM = " PM"
                        End Select
                    End If
                    If Trim$(AMPM) = "" Then AMPM = " AM"
                    a(i, 1) = m(0) & ":" & myMin & " " & AMPM
                Else
                    a(i, 1) = ""
                End If
            Next
        End With
        With .Columns(-4)
            .Value = a: .NumberFormat = "h:mm AM/PM"
        End With
    End With
    Range("M1:N1").Value = Now
'
    Range("I24").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Range("Q24").Select
    ActiveSheet.Paste
    Range("R24").Select
    ActiveSheet.Paste
    Range("S24").Select
    ActiveSheet.Paste
    Range("T24").Select
    ActiveSheet.Paste
    Range("U24").Select
    ActiveSheet.Paste
'
    ActiveSheet.ListObjects("Table_FLHearingsMaster").Range.AutoFilter Field:=2, _
    Criteria1:=Array("Broward", "Miami-Dade", "Palm Beach"), Operator:=xlFilterValues
    Range("Table_FLHearingsMaster[[#Headers],[Office Coverage]]").Select
    ActiveCell.FormulaR1C1 = "FTL"
    Range("Table_FLHearingsMaster[[#Headers],[FTL]]").Select
    Selection.Copy
    Range(Selection, Selection.End(xlDown)).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveSheet.ShowAllData
'
    ActiveSheet.ListObjects("Table_FLHearingsMaster").Range.AutoFilter Field:=2, _
    Criteria1:=Array("Hillsborough", "Pasco", "Pinellas"), Operator:=xlFilterValues
    Range("Table_FLHearingsMaster[[#Headers],[FTL]]").Select
    ActiveCell.FormulaR1C1 = "TPA"
    Range("Table_FLHearingsMaster[[#Headers],[TPA]]").Select
    Selection.Copy
    Range(Selection, Selection.End(xlDown)).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveSheet.ShowAllData
'
    ActiveSheet.ListObjects("Table_FLHearingsMaster").Range.AutoFilter Field:=20 _
    , Criteria1:="<>FTL", Operator:=xlAnd, Criteria2:="<>TPA"
    Range("Table_FLHearingsMaster[[#Headers],[TPA]]").Select
    ActiveCell.FormulaR1C1 = "Other"
    Range("Table_FLHearingsMaster[[#Headers],[Other]]").Select
    Selection.Copy
    Range(Selection, Selection.End(xlDown)).Select
    ActiveSheet.Paste
    Range("Table_FLHearingsMaster[[#Headers],[Other]]").Select
    ActiveCell.FormulaR1C1 = "Office Coverage"
    Application.CutCopyMode = False
    ActiveSheet.ShowAllData
'
    ActiveSheet.ListObjects("Table_FLHearingsMaster").Range.AutoFilter Field:=4 _
    , Criteria1:=""
    Range("Table_FLHearingsMaster[[#Headers],[Hearing Time]]").Select
    ActiveCell.FormulaR1C1 = "Missing"
    Range("Table_FLHearingsMaster[[#Headers],[Missing]]").Select
    Selection.Copy
    Range(Selection, Selection.End(xlDown)).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("Table_FLHearingsMaster[[#Headers],[Missing]]").Select
    ActiveCell.FormulaR1C1 = "Hearing Time"
    ActiveSheet.ShowAllData
'
    ActiveSheet.ListObjects("Table_FLHearingsMaster").Range.AutoFilter Field:=7, _
    Criteria1:="="
    Range("Table_FLHearingsMaster[[#Headers],[Attorney Attending Hearing]]").Select
    ActiveCell.FormulaR1C1 = "Missing"
    Range("Table_FLHearingsMaster[[#Headers],[Missing]]").Select
    Selection.Copy
    Range(Selection, Selection.End(xlDown)).Select
    ActiveSheet.Paste
    Range("Table_FLHearingsMaster[[#Headers],[Missing]]").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "Attorney Attending Hearing"
    ActiveSheet.ShowAllData
'
    Application.Calculation = xlCalculationAutomatic
    Range("$R$24").Select
    ActiveCell.FormulaR1C1 = "=IF((RC[-10]=""Missing""), ""Yes"", ""No"")"
    Range("$R$24").Select
    Range("$R$24").Copy
    Selection.AutoFill Destination:=Range( _
    "Table_FLHearingsMaster[Missing Hearing Attorney]")
    Columns("R:R").Copy
    Columns("R:R").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Application.CutCopyMode = False
'
    Range("$Q$24").Select
    ActiveCell.FormulaR1C1 = "=TEXT(RC[-13],""mmm-yyyy "")"
    Range("$Q$24").Select
    Range("$Q$24").Copy
    Selection.AutoFill Destination:=Range( _
    "Table_FLHearingsMaster[Hearing Month  Year]")
    Columns("Q:Q").Copy
    Columns("Q:Q").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Application.CutCopyMode = False
'
    Range("S24").Select
    ActiveCell.FormulaR1C1 = "=IF((RC[-14]=""Missing""), ""Yes"", ""No"")"
    Range("S24").Select
    Selection.Copy
    Application.CutCopyMode = False
    Selection.AutoFill Destination:=Range( _
    "Table_FLHearingsMaster[Missing Hearing Time]")
'
    Range("$T$24").Select
    ActiveCell.FormulaR1C1 = "=IF((RC[-5]>=TODAY()),""Yes"", ""No"")"
    Range("$T$24").Select
    Range("$T$24").Copy
    Selection.AutoFill Destination:=Range( _
    "Table_FLHearingsMaster[Sale Date Set]")
    Columns("T:T").Copy
    Columns("T:T").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Application.CutCopyMode = False
    Application.Calculation = xlCalculationManual
'
    Rows("22:22").Select
    Selection.NumberFormat = "0"
    Range("Table_FLHearingsMaster").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    Selection.Borders(xlEdgeTop).LineStyle = xlNone
    Selection.Borders(xlEdgeBottom).LineStyle = xlNone
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
'
    Range("Table_FLHearingsMaster[#All]").Select
    ActiveWorkbook.Worksheets("FLHearingsMaster").ListObjects( _
        "Table_FLHearingsMaster").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("FLHearingsMaster").ListObjects( _
        "Table_FLHearingsMaster").Sort.SortFields.Add Key:=Range( _
            "Table_FLHearingsMaster[New Hearing Date]"), SortOn:=xlSortOnValues, Order _
                 :=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("FLHearingsMaster").ListObjects( _
        "Table_FLHearingsMaster").Sort.SortFields.Add Key:=Range( _
            "Table_FLHearingsMaster[County]"), SortOn:=xlSortOnValues, Order:= _
                 xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("FLHearingsMaster").ListObjects( _
        "Table_FLHearingsMaster").Sort.SortFields.Add Key:=Range( _
            "Table_FLHearingsMaster[Hearing Time]"), SortOn:=xlSortOnValues, Order:= _
                xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("FLHearingsMaster").ListObjects( _
        "Table_FLHearingsMaster").Sort.SortFields.Add Key:=Range( _
            "Table_FLHearingsMaster[Attorney Attending Hearing]"), SortOn:=xlSortOnValues _
                , Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("FLHearingsMaster").ListObjects( _
        "Table_FLHearingsMaster").Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
'
    Application.Calculation = xlCalculationAutomatic
    Range("BI24").Select
    ActiveCell.FormulaR1C1 = "=CLEAN((TRIM(PROPER(RC[-51]))))"
    Range("BI24").Select
    Selection.Copy
    Range(Selection, Selection.End(xlDown)).Select
    ActiveSheet.Paste
    Columns("BI:BI").Copy
    Columns("BI:BI").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Range("BI24").Select
    Range("BI24").Copy
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Range("J24").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    With Selection
        .HorizontalAlignment = xlLeft
    End With
    Application.Calculation = xlCalculationManual
'
    Columns("BI:BI").Delete Shift:=xlToLeft
    Range("Table_FLHearingsMaster[#All]").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .Weight = xlThin
    End With
    Selection.RowHeight = 13
'
    ActiveWindow.ScrollColumn = 1
    Cells.Select
'
    Application.ScreenUpdating = True
    Application.StatusBar = True
    Application.DisplayAlerts = True
    Application.EnableEvents = True
    Application.Calculation = xlCalculationAutomatic
End Sub