RevitVBNETReturnTotalRows
From scripting
Function ReturnTotalRows(ByVal CurCells As Range) As Integer Dim RowCounter As Integer = 1 Dim FileCheck As Boolean = False While RowCounter < 1000 And FileCheck = False FileCheck = True For colcounter = 1 To 15 If CStr(CurCells(RowCounter, colcounter).value) <> "" Then FileCheck = False End If Next colcounter RowCounter = RowCounter + 1 End While ReturnTotalRows = RowCounter End Function