Hi Everyone I am new to this Forum and XL,VBA

But here I'm sending this code
I want to select only 1 cell in a given Range
But it doesn't seem to work .


Dim rng As Range
Set rng = Sheet3.Range("B1:B12")
If ActiveCell = rng Then
MsgBox "Right Cell Selected", vbOKOnly
Else:
MsgBox "Please Select a cell in Ranges", vbOKOnly
End If
Exit Sub

Help Please thanks