Hi Sige

You can test the area

Sub zzzz()
Dim smallrng As Range
For Each smallrng In Selection.Areas
If smallrng.Cells.Count 1 Then MsgBox smallrng.Address & " is not a correct selection"
Next
End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Sige" wrote in message ups.com...
Goodmorning All,

Is it possible allowing a user to select individual cells only?
No ranges with cells.count1?

Brgds Sige