rutine der kontrollerer om celler i kolonne 20 er tomme

Public Sub Tom()
    Dim T As Variant, I As Long
    T = Worksheets("Ark2").Range(Cells(1, 20), Cells(400, 20))
    For I = 1 To UBound(T)
        If IsEmpty(T(I, 1)) Then
            MsgBox "Række " & I & " er tom"
            Exit For
        End If
    Next
End Sub

Ret arknavnet til dit ark

Jep. Det er rigtig godt.
Kan den løbe rutinen igennem alle 400 linier og så returnere ALLE linier der er tomme i området.?

Så den evt. skriver:
Linierne: 5,56,75,99 er tomme

Bemærk at der kun er plads til 255 tegn, så du kan måske ikke se alle, hvis du hat mange.

Public Sub Tom()
    Dim T As Variant, I As Long, Antal As String
    T = Worksheets("Ark2").Range(Cells(1, 20), Cells(400, 20))
    For I = 1 To UBound(T)
        If IsEmpty(T(I, 1)) Then
            Antal = Antal & I & ","
        End If
    Next
    MsgBox "Række " & Antal & " er tom"
End Sub