vba code no longer working after 8 years: did Excel or vba change?: lngRowsVisible

[Ruthanne]

Hi all!
In 2011, the kind & infamous Moderator Jerry Sullivan gave me vba to achieve adding or deleting rows to have a proportionate sized sheet to print after filtering rows (in this post: https://www.mrexcel.com/forum/excel...s-total-excluding-filtered-hidden-rows-2.html) . It worked great & about 3-6 months ago started bugging w/a Microsoft Visual Basic Run-time error '1004': No cells were found. The yellow highlight in the Microsoft Visual Basic for Applications is these two lines:

     lngRowsVisible = .Resize(, 1) _
            .SpecialCells(xlCellTypeVisible).Count

I'm wondering if the term "lngRowsVisible" has changed?

(My Excel version is from Microsoft Office Professional Plus 2016.)

Thanks in advance for any words of wisdom!

 

[Fluff]

My pleasure.