modified it a bit to not allow action on the range after the msgbox was
displayed

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count 1 Then
MsgBox Target.Address & " is not a correct selection"
ActiveCell.CurrentRegion.Cells(1, 1).Select
End If
End Sub

--


Gary


"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