Identify blanks

[JJM]

I have multiple cells (C5,D7,R45,S77,T79...) that should contain data input
by user.
I need to identify those cells where no data was entered to alert the user.
Can someone give me an idea of how to write this code?
Thanks.

 

[Gary''s Student]

Perhaps:

Sub dural()
ll = Array("C5", "D7", "R45", "S77", "T79")
For i = 0 To 4
If IsEmpty(Range(ll(i))) Then
MsgBox ("cell " & Range(ll(i)).Address & " needs to be filled")
End If
Next
End Sub

Alternatively you can construct a range of dis-joint cells and loop over it.

 

[JJM]

Great! Thanks!
--
Regards,

Perhaps:

Sub dural()
ll = Array("C5", "D7", "R45", "S77", "T79")
For i = 0 To 4
If IsEmpty(Range(ll(i))) Then
MsgBox ("cell " & Range(ll(i)).Address & " needs to be filled")
End If
Next
End Sub

Alternatively you can construct a range of dis-joint cells and loop over it.