VBA - har brug for et par øjne på denne...

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

Lukker