Show form when activating a cell VBA

[RonnieODIN]

Hi all,

I am trying to make my worksheet show a userform when going to a certain cell. I don't know what to do. I have tried the following code, but it doesn't work for me.

Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveCell.Address = "$B$13" Then
Kalender.Show
End If
End Sub

Anyone have an idea?

Thanks

-Ronnie.

[Norie]

Ronnie

Change ActiveCell.Address to Target.Address.

[RonnieODIN]

I have changed "activecell" to "target" but it still doesn't work.

It seems like it does not go into the change-sub. I tried to expand the code to check for that:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$14" Then
Kalender.Show
Cells(15, 5).Value = 1
End If
Cells(15, 5).Value = 0
End Sub

But nothing happens.

[D_Rennie]

do you want the worksheet change, you will then need to change something in that cell before the code will run.
try Private Sub Worksheet_SelectionChange(ByVal Target As Range)

[Winon]

Try it like this;

Please Login or Register  to view this content.

Hope that helps!

Please use Code Tags when posting Code.

[RonnieODIN]

I just changed to SelectionChange and tried a single cell - this works.

The cell I would like to use is a merged cell. How do I work around that? The cells B13 to F13 are merged.

[Winon]

This should work in that case:

Please Login or Register  to view this content.

[RonnieODIN]

Thank you all very much for your answers.

[Winon]

You are welcome,

Did you manage to solve your issue?, if so, please remember to mark your Thread as "Solved".

Thank you for the Rep.