If Range is Empty, Unknown number of rows

[nniedzielski]

I am trying to set up some code to detect if a range of rows is empty, and I will not know the number of rows before hand. This is what I am trying, but it doesnt seem to be working (even if the range is empty, the code doesnt run the next line, it goes to end if)

finalrow = Cells(Rows.Count, 1).End(xlUp).Row
        
        If IsEmpty(Range("d12:d" & finalrow)) = True Then
            Cells(finalrow + 1, 5) = "No Open Copies"
        Else
            'do nothing
        End If

how can i alter this to work?

 

[njimack]

Untested...

Sub x()
Dim finalrow As Long
finalrow = Cells(Rows.Count, 1).End(xlUp).Row
        
        If WorksheetFunction.CountA(Range(Cells(12, 4), Cells(finalrow, 4))) = 0 Then
            Cells(finalrow + 1, 5) = "No Open Copies"
        Else
            'do nothing
        End If
End Sub

 

[nniedzielski]

worked perfectly, thank you