Fout melding "For"

'Controle invoer
    For Each cell In Range("C4")
    If IsEmpty(cell) Then
    MsgBox "Oeps, niet alle velden zijn ingevoerd": Exit Sub
    Exit For
    End If

    For Each cell In Range("C11:C14")
    If IsEmpty(cell) Then
    MsgBox "Oeps, niet alle velden zijn ingevoerd": Exit Sub
    Exit For
    End If
    
    For Each cell In Range("C19:C21")
    If IsEmpty(cell) Then
    MsgBox "Oeps, niet alle velden zijn ingevoerd": Exit Sub
    Exit For
    End If
    
    For Each cell In Range("C25:C38")
    If IsEmpty(cell) Then
    MsgBox "Oeps, niet alle velden zijn ingevoerd": Exit Sub
    Exit For
    End If
    
    For Each cell In Range("F11:F21")
    If IsEmpty(cell) Then
    MsgBox "Oeps, niet alle velden zijn ingevoerd": Exit Sub
    Exit For
    End If

For Each cell In Range("C4, C11:C14, C19:C21, C25:C38")
    If IsEmpty(cell) Then
        MsgBox "Oeps, cel " & cell.Address(0, 0) & " bevat geen waarde", vbCritical: Exit Sub
    End If
Next cell

Sub j()
 If Application.CountA(Range("C4, C11:C14, C19:C21,C25:C38,F11:F21")) <> 33 Then MsgBox "Oeps, niet alle velden zijn ingevoerd"
End Sub

Sub j()
Dim TheCells As Range
Set TheCells = Range("C4, C11:C14, C19:C21,C25:C38,F11:F21")
 If Application.CountA(TheCells) <> TheCells.Cells.Count Then MsgBox "Oeps, niet alle velden zijn ingevoerd"
End Sub