No Cells Found VBA Error

[ktfrrll]

Hello,

I have a line of code that counts the number of rows in the table and enters that count into a specified cell. Previous lines of code filter the table down base upon certain criteria. This code works well except when there are no rows. How can I modify this so that if no rows are found, the value for the specified cell is just set to zero?

Cells(2, 6).Value = (Sheets("Sheet1").Range("Table1").SpecialCells(xlCellTypeVisible).Rows.Count)

Thanks in advance!

[FoxSeaLady]

Hi

Try

Please Login or Register  to view this content.

Note I have not tested this.

Cheers

[TMS]

Maybe

Please Login or Register  to view this content.