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

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.

--
Regards,
tom Ogilvy

"Kevlar" wrote in message
...

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

Thanks


--
Kevlar
------------------------------------------------------------------------
Kevlar's Profile:
http://www.excelforum.com/member.php...fo&userid=7231
View this thread: http://www.excelforum.com/showthread...hreadid=265222