I can see that the "If Not IsEmpty(ActiveCell) Then" works with identifying blanks and formualas that do not return results but how could I include this is my code?


My full code is:



Sub Dig_check()
Range("A171").Select
Selection.End(xlDown).Select

Dim rowcheck As Integer
rowcheck = ActiveCell.Row
    
Range("B172:B" & rowcheck).Select
    Dim findblank As String
    On Error Resume Next
    Selection.SpecialCells(xlBlanks).Select
    findblank = ActiveCell.Value
    
    If Not IsEmpty(ActiveCell) Then
    If findblank = "171" Then GoTo nxt1
    MsgBox ("You need to fill out text in column B, row " & findblank)
    End
    End If
    
nxt1:
    Range("D172:D" & rowcheck).Select
        
      Selection.SpecialCells(xlBlanks).Select
    findblank = ActiveCell.Value
    
    If Not IsEmpty(ActiveCell) Then
    If findblank = "171" Then GoTo nxt2
    MsgBox ("You need to fill out text in column D, row " & findblank)
    End
    End If
nxt2:
Range("I172:I" & rowcheck).Select
        Selection.SpecialCells(xlBlanks).Select
    findblank = ActiveCell.Value
    
    If Not IsEmpty(ActiveCell) Then
    If findblank = "171" Then GoTo nxt3
    MsgBox ("You need to fill out text in column I, row" & findblank)
    End
    End If
nxt3:
Range("J172:J" & rowcheck).Select
    Selection.SpecialCells(xlBlanks).Select
    findblank = ActiveCell.Value
    If Not IsEmpty(ActiveCell) Then
    If findblank = "171" Then GoTo nxt4
    MsgBox ("You need to fill out text in column J, row " & findblank)
    End
    End If
nxt4:
    ' Your code here if everything is ok.
Range("A171:AK171").Select
    Range(Selection, Selection.End(xlDown)).Select


Any ideas? I basically need to automatically find the range starting from A171 and then down to the last row with text in and search the cells within that range for blank or formula's that equal "" in column B, D, I and J. My code might not be the best way to do this though?