this is the code I have

Private Sub Worksheet_SelectionChange(ByVal Target As
Range)

If Target.Address = "$C$10" Then

Set rng = Range("C4:C8")
On Error GoTo DoIt
Application.EnableEvents = 0
If Application.Count(rng) < 5 Then
MsgBox "Enter All Records!", vbOKOnly, "Invalid
Record found"
End
End If
Else
Run MyCode
EndSub

i want to check if any of the cells in range is blank and
which are they

TIA

Soniya



-----Original Message-----
Post the code you have - then someone can suggest a
modification.

--
Regards,
Tom Ogilvy

Soniy wrote in message
...
this is not the case,

i want to check if any of the cells in range is blank
and
which are they

Soniy
-----Original Message-----
If your data in a1:a5 for example you can do this if
there are empty cells in the range

Range("A1").End(xlDown).Offset(1, 0).Select


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)
www.rondebruin.nl



"Soniya" wrote in message
...
Hi all

I have the following:

ColumnA Column B
title1 data1
title2
title3 data2
title4

when i reach row five it runs a macro :
before proceeding i want to check any empty cells in
this
range and should go back to that empty cell with a
message this cell should be filled

in my above eg: it should say title2 and title4 is
emppty
and select column B row 2 (Title2)

My code now only says "There are empty cells"
without specifically saying which are they and
selecting
the corresponding cell

any help?

TIA
Soniya


.



.