VBA probleem als kolom verborgen wordt

[Esducsafe]

@Helpers
Onderstaande code werkt niet meer als kolom N verborgen wordt. Wie weet hoe de code aangevuld moet worden? Mijn zoekexercitie bleef (tot nu toe) zonder resultaat.
Alvast bedankt.
Esko

Private Sub Worksheet_Change(ByVal Target As Range)
Dim iReply As Integer
 On Error Resume Next

 If Not Intersect(Target, Range("B2:F10")) Is Nothing Then
    If Target.Column = 2 And [N2:N10].Find(Target, , xlValues, xlWhole) Is Nothing Then
        
         If Target <> 0 Then
            iReply = MsgBox("Het ........is " & vbCrLf & _
            ".....", vbCritical, "Invoer Fout!")
                Target.ClearContents
     End If
End If

   If Target.Column = 3 And [N2:N10].Find(Target, , xlValues, xlWhole) Is Nothing Then
                
         If Target <> 0 Then
            iReply = MsgBox("Het ........is " & vbCrLf & _
            ".....", vbCritical, "Invoer Fout!")
                Target.ClearContents
  End If
End If
   
   If Target.Column = 5 And Cells(Target.Row, 2) = "" Then
   
         If Target <> 0 Then
            iReply = MsgBox("Er is nog geen ....." & vbCrLf & _
            "in kolom B ingevuld.", vbCritical, "Invoer Fout!")
                Target.ClearContents

    End If
End If

   If Target.Column = 6 And Cells(Target.Row, 2) = "" Then
   
        If Target <> 0 Then
            iReply = MsgBox("Er is nog ........" & vbCrLf & _
            "in kolom C ingevuld.", vbCritical, "Invoer Fout!")
                Target.ClearContents
    End If
End If
On Error GoTo 0

     End If
End Sub

 

[exhelp]

Vervang

xlValues

door

xlFormulas

Bij het zoeken naar waarden wordt niet in verborgen kolommen/rijen gezocht.

 

[Esducsafe]

@ Exhelp,
Bedankt. Die had ik ook gevonden, maar werkte (toen) niet. Vreemd.
groet,
Esko

 

[exhelp]

Graag gedaan. Vergeet je vraag niet te markeren als 'opgelost'!