How do I test for the first character

[Kevlar]

This got it to work:

If Target.Address = "$D$22" Then
If Range("D18").Value = 1 Then
If Mid((Range("D22")), 1, 1) = "A" Then
Checktool.Show
End If
End If
End If

Thank

 

[Tom Ogilvy]

So the trick was looking at the correct cells and testing for 1 instead of
MP? There is no difference between Left(rng,1) = "A" and Mid(rng,1,1)="A"
except that it takes longer to type the second one.