If Target.Value Target.Offset(-1, 0).Value and _
application.counta(Target.Resize(1,7)) = 7 then

--
Regards,
Tom Ogilvy


"Barb Reinhardt" wrote:

I have the following code

If Target.Offset(0, 0).Value Target.Offset(-1, 0).Value And _
Target.Value Is Not Empty And _
Target.Offset(0, 1).Value Is Not Empty And _
Target.Offset(0, 2).Value Is Not Empty And _
Target.Offset(0, 3).Value Is Not Empty And _
Target.Offset(0, 4).Value Is Not Empty And _
Target.Offset(0, 5).Value Is Not Empty And _
Target.Offset(0, 6).Value Is Not Empty Then