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
--
Kevla
-----------------------------------------------------------------------
Kevlar's Profile:
http://www.excelforum.com/member.php...nfo&userid=723
View this thread:
http://www.excelforum.com/showthread.php?threadid=26522