If IsEmpty on Merged Cells Not working as should be

[SallyMcK]

I have some merged cells , namely C4 and D4. I am trying to run some code to check if the range (c4:D4) is empty and if so to have the msgbox popup and the macro end. It works fine but it continues to keep showing the Msgbox even after I have entered a contact name into the merged cells. I can only assume it is because the cells are merged. Can anyone help as to why this is happening after Ive entered a contact name.

Range("C4").Select
If IsEmpty(C4) = True Then
MsgBox "PLEASE ENTER CONTACT NAME"
End If
If IsEmpty(C4) = True Then Exit Sub

 

[Fluff]

Try

If IsEmpty(Range("C4")) = True Then

 

[SallyMcK]

Thanks for suggestion but it still falls over once I've entered a name. Different problem occurs though - it doesn't run the rest of the macro. Its like its exited the sub

 

[Fluff]

it doesn't run the rest of the macro. Its like its exited the sub

That's because of the last line of your code.
With C4:D4 merged this works for me

Sub chk()

If IsEmpty(Range("C4")) = True Then
   MsgBox "PLEASE ENTER CONTACT NAME"
   Exit Sub
Else
   MsgBox "ok"
End If
End Sub

but if B4:C4 are merged I get your msgbox.
It's always best to avoid merging cells as they are a right royal PITA!
Try using centre across selection instead

 

[SallyMcK]

Thanks. Still not working but I'll give it a go again tomorrow. I'll try in a seperate worksheet and start from scratch again. Many Thanks