I added a space in the $B$18, that is why mine didn't work, but I can't see
why Don's didn't.

--
HTH

-------

Bob Phillips
"Steve Jones" wrote in message
...
Thanks for your incredibly quick response - I tried the code from Jake and
it worked fine.

I tried yours and DonB's with no success at all, I guess its me!

Once again many thanks
"Bob Phillips" wrote in message
...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Address = "$B $18" then
Call Furn
End If

End Sub

--
HTH

-------

Bob Phillips
"Steve Jones" wrote in message
...
Hi

Is it possible to have a userform display (show) on selection of a
specific
cell?

I have come up with the code as below but it shows the form on
everytime
I
select any cell and not just "B18".


Private Sub Worksheet_SelectionChange(ByVal Target As Range)

' Want userform to display on selection of cell B18.
' If any other cell is selected - nothing.

If Range("b18") = ActiveCell Then Call Furn Else ' "Furn" is
UsrFrm.show
If Range("b18") < ActiveCell Then Exit Sub


End Sub

Thanks for your help.

Steve