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