rdhaese
10/1/2017 - 9:26 AM

Count not empty cells in range

countEmptyCellsInRange
content_copyfile_download
    Dim emptyCells As Integer
    emptyCells = ActiveSheet.range("A:A").Cells.SpecialCells(xlCellTypeConstants).Count