Counting Visible rows is not working

[abduljaleel.mca]

Hi,

I am working on a project based on Drop down box and using the below code

nStart = 5
nEndRw = Cells(Rows.Count, "F").End(xlUp).Row
Rows(nStart & ":" & nEndRw).Hidden = True

Dim ddBox5 As DropDown
Set ddBox5 = Sheets("TOC").DropDowns("Drop Down 5")
Set rngList = Sheets("Sheet1").Range(ddBox5.ListFillRange)
Set ddValue = rngList(ddBox5.Value)

If d6Value = "All" Then
Worksheets("TOC").Rows("1:91").Hidden = False
Range("A1").Select
End If

LastRow = Sheets("TOC").SpecialCells(xlCellTypeVisible).Rows.Count

MsgBox LastRow

However the below line shows error (object does not support this property or method)

LastRow = Sheets("TOC").SpecialCells(xlCellTypeVisible).Rows.Count

Kindly help to execute this

Thanks
Abdul

[Norie]

Abdul

SpecialCells applies to a range, not a worksheet.

For example to find visible cells in column A.

Sheets("TOC").Columns(1).SpecialCells(xlCellTypeVisible).Rows.Count

[Debraj Roy]

Try this...

lastrow = Sheets("TOC").range("A" & rows.Count).end(xlup).row

will work on filter also..

[abduljaleel.mca]

Thanks Norie.
I know only 10% of VBA when I was started to work on it but now I learned and learning many things through this forum.

Thank you guys