You do it using targe.cells.count like this[VBA]If Target.Cells.Count > 1 Then
MsgBox Target.Address
Else
MsgBox "Not merged " & Target.Address
End If[/VBA]
You do it using targe.cells.count like this[VBA]If Target.Cells.Count > 1 Then
MsgBox Target.Address
Else
MsgBox "Not merged " & Target.Address
End If[/VBA]
Regards,
Simon
Please read this before cross posting!
In the unlikely event you didn't get your answer here try Microsoft Office Discussion @ The Code Cage
If I have seen further it is by standing on the shoulders of giants.
Isaac Newton, Letter to Robert Hooke, February 5, 1675 English mathematician & physicist (1642 - 1727)
Posting Permissions
Reply With Quote