Object Variable or with block variable not set - Autofilter

[sai.krishnaa2006]

Hi, I am running a macro in a system since very long, but suddenly the same file is throwing me error at specific line when I run the file in a new laptop. Appereciate any help here (Error is with "Set RangeFilter = ActiveSheet.AutoFilter.Range"). Below is part of the code for any reviews.

Sub CashAccounts()

Dim MonthTab As String
Dim RangeFilter As Range
Dim R As Long, F As Long

Sheets("Input").Select
MonthTab = Range("B2").Value

If Range("A7").Value = "" Then
MsgBox "There is no data to add", vbInformation, "No Data"
Range("A7").Select
Exit Sub
End If

Application.ScreenUpdating = False
Sheets(MonthTab).Select
Set RangeFilter = ActiveSheet.AutoFilter.Range
R = RangeFilter.Rows.Count
F = RangeFilter.SpecialCells(xlCellTypeVisible).Rows.Count

[JLGWhiz]

If your filter is not activated you cannot use AutoFilter.Range to set a variable.
Activate the filter first and then set the variable. The range will be the same as the total area of data which was used to filter, not just the filtered items.

[sai.krishnaa2006]

Awesome, Thank you, I was missing this simple solution. Thanks for your time.

[JLGWhiz]

Awesome, Thank you, I was missing this simple solution. Thanks for your time.

You're welcome, Don't forget to mark the thread as Solved (Thread Tools button at top of page)
Regards, JLG