by Rone (9 Submissions)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Fri 14th May 2004
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Retrieves first empty row in an Excel sheet.
Dim rngBlankCell As Range
'Determine the last row
Set rngBlankCell = Sheets("Categories").Columns(1)
intBlankRow = rngBlankCell.Find("", Range(strCatIDCol & strStartRow)).Row