Hej Peter,
Jeg har lavet en ny kodestump til sig, som forhåbentlig gør det ønskede
Bemærk at BlokerRedigering kan ændres fra FALSE (det er muligt at taste i cellen som udløser advarsel) og TRUE (det er ikke muligt at redigere cellen som udløser advarsel)
Håber du kan bruge det
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim BlokerRedigering As Boolean
BlokerRedigering = False 'Sættes denne til TRUE vil brugerenikke kunne taste i cellen
If Target.Row < 2 Or Target.Column > 2 Then Exit Sub
If Target.Column = 1 And InStr(1, Range("C" & Target.Row).Value, "ESDV") > 0 Then
MsgBox "HUSK drift stilling på en ESDV !!!!", vbExclamation
If BlokerRedigering = True Then Range("A1").Activate
End If
If Target.Column = 2 And InStr(1, Range("C" & Target.Row).Value, "BDV") > 0 Then
MsgBox "HUSK drift stilling på en BDV !!!!", vbExclamation
If BlokerRedigering = True Then Range("A1").Activate
End If
End Sub