VBA - Undersøg om celler indeholder værdi fra en liste

Fandt løsningen:

Sub MappingOpdateret()

Dim r As Long, Mapping As String


Application.ScreenUpdating = False

'Gennemløber kolonnen H indtil blank mødes
With ActiveWorkbook.Sheets("Mapping")
For r = 3 To 1000
Mapping = .Range("H" & CStr(r)).Value
If Mapping <> "" Then
'Undersøg om Mapping findes i listen
If FindMapping(Mapping) = False Then
MsgBox "Mapping [" & Mapping & "] findes ikke som regnskabspost. " & vbLf & "Vælg en eksisterende mappping."
ActiveWorkbook.Sheets("Mapping").Range("H" & CStr(r)).Select
Exit Sub
End If
Else
MsgBox "Mapping kontrolleret. Ingen fejl fundet."
Exit Sub
End If
Next r
End With

Application.ScreenUpdating = True

ActiveWorkbook.Sheets("Mapping").Activate
End Sub

Private Function FindMapping(mapnavn)
With Ark08.Range("O_M_Konto_navn")
Set c = .Find(mapnavn, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
FindMapping = True
Else
FindMapping = False
End If
End With
End Function