Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Address < Range("D11").Address Then Exit Sub
MsgBox "Cell D11 is selected"
End Sub

"peyman" wrote:

hi,
how can I write a code by which when only a cell like D11, is selected, a
msgbox pops up?
thanx