Try this:

If Target.Address = "$B$18" then Call Furn Else Exit Sub

Assuming you are running this inside of
Worksheet_SelectionChange
DonB
-----Original 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


.