Thanks for your incredibly quick response, it works perfectly and I'd been
looking through books and sites for ages.

Cheers

Steve
"Jake Marx" wrote in message
...
Hi Steve,

Something like this should work:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B18")) _
Is Nothing Then Furn
End Sub

--
Regards,

Jake Marx
MS MVP - Excel
www.longhead.com

[please keep replies in the newsgroup - email address unmonitored]


Steve Jones wrote:
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