Macro kode skal melde fejl/ignorere bogstaver

Hej Igen Eksperter!

Søger hjælp da jeg ikke kan få min macro til det.
Den har en function den køre med.

Der er nogle bogstaver der vil blive brugt som fks.
"S, F, FF, K" evt. nogle flere men indtil videre er det dem.
Alle andre skal ignoreres eller af der kommer en msgbox frem med fejl.

Den msgbox der er der nu, vil ikke komme frem som den er, ved ikke hvad jeg har gjort forkert.

Koden jeg bruger pt.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim TimeStr As String
'On Error GoTo Endmacro
If Application.Intersect(Target, Range("D8:AC29")) Is Nothing Then
    Exit Sub
End If

If Target.Cells.Count > 1 Then
        Target.Interior.ColorIndex = StandardFarve
        Target.Font.ColorIndex = 1
        Target.Font.Bold = False
    Exit Sub
End If
If Target.Value = "" Then
Target.Interior.ColorIndex = 0
    Exit Sub
End If

Application.EnableEvents = False
With Target
If .HasFormula = False Then
    Select Case Len(.Value)
        Case 1
            TimeStr = "00:0" & .Value
        Case 2
            TimeStr = "00:" & .Value
        Case 3
            TimeStr = Left(.Value, 1) & ":" & _
            Right(.Value, 2)
        Case 4
            TimeStr = Left(.Value, 2) & ":" & _
            Right(.Value, 2)
        Case 5
            TimeStr = Left(.Value, 1) & ":" & _
            Mid(.Value, 2, 2) & ":" & Right(.Value, 2)
        Case 6
            TimeStr = Left(.Value, 2) & ":" & _
            Mid(.Value, 3, 2) & ":" & Right(.Value, 2)
        Case Else
            Err.Raise 0
    End Select
  .Value = TimeValue(TimeStr)
 
        Target.Interior.ColorIndex = StandardFarve
        Target.Font.ColorIndex = 1
        Target.Font.Bold = False
        Target.Offset(0, 1).Activate

End If
End With
Application.EnableEvents = True
Exit Sub
Endmacro:
MsgBox " Indtastningsfejl !!!" & Chr(13) & Chr(13) & "  Se evt. arket 'Hjælp' " & Chr(13) & Chr(13) & " Prøv igen !"
Application.EnableEvents = True
End Sub

takker på forhånd.