A Macro to warn me if one cell in a row has data but another does not?

[tonywatsonhelp]

I have a sheet that is called "Deadlines"

I input data in the following ranges

F7:F150
H7:H150
I7:I150

Now people keep missing one or the other of these inputs,
so can I have a macro that when run checks and if any cell in any row has data then every cell in that row must have data otherwise Messagebox "You Can Not Proceed"

please help if you can

Thanks

Tony

 

[MARK858]

Lazy way....

Sub TomWatson()
    If WorksheetFunction.CountA(Range("F7:F150")) <> 144 Or _
       WorksheetFunction.CountA(Range("H7:H150")) <> 144 Or _
       WorksheetFunction.CountA(Range("I7:I150")) <> 144 Then MsgBox "You Can Not Proceed"
End Sub

Although you probably want to put it in a worksheet event but you haven't stated how you are triggering it.

 

[tonywatsonhelp]

Thank you Mark859
this is great,
I didn't need it in worksheet event as its already doing loads so just wantend to add it before
but everything is working exactly as i wanted so thank you

 

[MARK858]

You're welcome, btw you can shorten it to

Sub TomWatson()
    If WorksheetFunction.CountA(Range("F7:F150,H7:H150,I7:I150")) <> 432 Then MsgBox "You Can Not Proceed"
End Sub