Run-time error '424': Object-required

I'm getting a run-time error at the "Delete Cash" portion of my code. Do I need to define something else?

' ==============================================================================================================
' Define Variables
    Dim Month As String, Year As String, Home As String, MonthEnd As String, FY As String
    Dim oSh As Worksheet
    Set oSh = ActiveSheet
    Dim x As Variant, y As Variant
    Dim Newbook
    
    FY = "FY10"
    Year = cboYear
    Home = "SCNC"
    
    Select Case cboMonth.Value
        Case "JANUARY"
            Month = "01"
            MonthEnd = "01/31/"
        Case "FEBRUARY"
            Month = "02"
            MonthEnd = "02/28/"
        Case "MARCH"
            Month = "03"
            MonthEnd = "03/31/"
        Case "APRIL"
            Month = "04"
            MonthEnd = "04/30/"
        Case "MAY"
            Month = "05"
            MonthEnd = "05/31/"
        Case "JUNE"
            Month = "06"
            MonthEnd = "06/30/"
        Case "JULY"
            Month = "07"
            MonthEnd = "07/31/"
        Case "AUGUST"
            Month = "08"
            MonthEnd = "08/31/"
        Case "SEPTEMBER"
            Month = "09"
            MonthEnd = "09/30/"
        Case "OCTOBER"
            Month = "10"
            MonthEnd = "10/31/"
        Case "NOVEMBER"
            Month = "11"
            MonthEnd = "11/30/"
        Case "DECEMBER"
            Month = "12"
            MonthEnd = "12/31/"
    End Select
' ==============================================================================================================
' Print the completed userform for the accountant's records.
'    frmRSCV.printform
' ==============================================================================================================
' Open the file created by Billing.
        Workbooks.OpenText Filename:= _
            "I:\Dept\Accounting\Facility AR Reconciliations\AR Import Files\" & Home & "_" & Year & "" & Month & ".xlsm" _
            , Origin:=437, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
            xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
            Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 9), _
            Array(2, 3), Array(3, 1), Array(4, 9), Array(5, 1), Array(6, 9), Array(7, 1), Array(8, 1), _
            Array(9, 1), Array(10, 9)), TrailingMinusNumbers:=True
' ==============================================================================================================
' Create BatchID column.
    Range("Table1[[#Headers],[Location]]").FormulaR1C1 = "Batch"
    With ActiveCell.Characters(Start:=1, Length:=5).Font
        .Name = "Calibri"
        .FontStyle = "Regular"
        .Size = 11
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
    Range("A2").Select
    Cells.Replace What:="" & Home & "", Replacement:="" & Home & "" & Year & "" & Month & "AR", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Columns("A:A").EntireColumn.AutoFit
' ==============================================================================================================
' Delete all rows with a "Total" Value of 0.
    ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=8, Criteria1:="-"
    Application.DisplayAlerts = False
    ActiveSheet.UsedRange.Offset(1, 0).Resize(ActiveSheet.UsedRange.Rows.Count - 1).Rows.Delete
    Application.DisplayAlerts = True
    ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=8
    Range("Table1[[#Headers],[Batch]]").Select
' ==============================================================================================================
' Delete all rows with "Type" Value of 40 or 50.
    ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=3, Criteria1:= _
        "=40", Operator:=xlOr, Criteria2:="=50"
    Application.DisplayAlerts = False
    ActiveSheet.UsedRange.Offset(1, 0).Resize(ActiveSheet.UsedRange.Rows.Count - 1).Rows.Delete
    Application.DisplayAlerts = True
    ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=3
    Range("Table1[[#Headers],[Batch]]").Select
' ==============================================================================================================
' Convert PL Account to GP Account
    Workbooks.Open Filename:= _
        "I:\Dept\Accounting\Facility AR Reconciliations\PL GL #\PL GL Master (3).xlsx"
    Sheets("MASTER FY10").Select
    Sheets("MASTER FY10").Copy After:=Workbooks("" & Home & "_" & Year & "" & Month & ".xlsm").Sheets(2)
    Sheets("MASTER FY10").Name = "COA Conversion"
    Sheets("" & Home & "_" & Year & "" & Month & "").Select
    Columns("B:B").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("B2").FormulaR1C1 = _
        "=VLOOKUP(Table1[[#This Row],[Account]],'COA Conversion'!C[-1]:C[6],8,FALSE)"
    Columns("B:B").NumberFormat = "0"
    Columns("B:B").EntireColumn.AutoFit
' ==============================================================================================================
' Identify Cash & AR Amount.
    ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=2, Criteria1:= _
        "=100700", Operator:=xlOr, Criteria2:="=120000"
    Columns("C:H").EntireColumn.Hidden = True
    x = Application.InputBox _
             (Prompt:="Enter 100700 amount shown on screen.", _
                    Title:="ENTER CASH AMOUNT", Type:=1)
    y = Application.InputBox _
             (Prompt:="Enter 120000 amount shown on screen.", _
                    Title:="ENTER AR AMOUNT", Type:=1)
    Columns("C:H").EntireColumn.Hidden = False
' ==============================================================================================================
' Delete Cash row.
    Select Case x.Value
        Case Is <> ""
            ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=2, Criteria1:="100700"
            Application.DisplayAlerts = False
            ActiveSheet.UsedRange.Offset(1, 0).Resize(ActiveSheet.UsedRange.Rows.Count - 1).Rows.Delete
            Application.DisplayAlerts = True
    End Select
            ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=2
            Range("Table1[[#Headers],[Batch]]").Select

Hello narrowgate88,

Since you didn't say which line in the code was producing the error, I have to guess. The statement to display alerts and the statement to select the used range are correct, which leaves the ListObject. Have you verified that the name "Table1" is the correct name for that object on the active sheet?

Hello narrowgate88,

The Application.InputBox is a type 1, meaning it requires a number. Your Case statement is:

    Select Case x.Value
        Case Is <> ""
            ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=2, Criteria1:="100700"
            Application.DisplayAlerts = False
            ActiveSheet.UsedRange.Offset(1, 0).Resize(ActiveSheet.UsedRange.Rows.Count - 1).Rows.Delete
            Application.DisplayAlerts = True
    End Select

The Value statement can only be used with an object, not a string, nor a number.

Hello narrowgate88,

You really need to do some reading about variable types. Your Case statement fails because it is looking to compare a String. The double quotes represents an empty string, not a numeric zero. If the Case statement does not test true then the next Case statement is evaluated, if there is one. Did you change the Case statement to look for a zero?

    Select Case x
        Case Is <> 0
            ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=2, Criteria1:="100700"
            Application.DisplayAlerts = False
            ActiveSheet.UsedRange.Offset(1, 0).Resize(ActiveSheet.UsedRange.Rows.Count - 1).Rows.Delete
            Application.DisplayAlerts = True
    End Select