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

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

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

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

No problem, Steve - glad to help!

--
Regards,

Jake Marx
MS MVP - Excel
www.longhead.com

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

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

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

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

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


.

Thanks for your answers. I opted for the answer from Jake which worked fine,
I tried the other two answers and for whatever reason I couldn't get either
to work.

Following on from calling the userform, the user then presses a print button
and that runs through a sequence however it keeps "halting" as it keeps
calling the userform.

If I run the userform from a button and then press the print button
everything works as it should.

Where am I going wrong?
"DonB" wrote in message
...
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


.