Delete key not activating Worksheet_Change procedure

[BigDelGooner]

Hi all

The code below works fine when I change a value in cells B6,B7 or B8 but when I delete a value in these cells using the delete key the procedure is not activated. I presume its that the delete key command is effectively classed as a ClearContents and not an actual change, any ideas on a workaround for this though?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$6" Then
FrontPage_Summary
End If

If Target.Address = "$B$7" Then
FrontPage_Summary
End If

If Target.Address = "$B$8" Then
FrontPage_Summary
End If
End Sub

 

[VoG]

That works for me when pressing delete.

 

[GTO]

Hi all

...but when I delete a value in these cells using the delete key the procedure is not activated. I presume its that the delete key command is effectively classed as a ClearContents and not an actual change, any ideas on a workaround for this though?...

Hi there,

Somethiing is goofy, as ClearContents is indeed a change. In fact, you can enter and exit edit mode (F2) and a change will be registered, even though you didn't change anything.

Mark

 

[Comfy]

I use a Worksheet_Change event and the Delete Key triggers this event.

 

[BigDelGooner]

Strange.

Actually the values in cells B6, B7 and B8 are selected from data validation list, does this still work on your side?

 

[snowblizz]

If I run a simple code like this it will react to the Delete key and pop a messagebox if you delete contents. In fact it triggers

Private Sub Worksheet_Change(ByVal Target As Range)

MsgBox Target.Address

End Sub

And I was beaten to the punch by a lot of people! Darn testing before typing.


Edit:
If I make a simple datavalidation lists the messagebox triggers on each change/delete.

 

[VoG]

Yes, works with DV.

 

[BigDelGooner]

Thank you so much for all the responses.

This is very strange because if i change the code to the following:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$6" Then
FrontPage_Summary
End If

If Target.Address = "$B$7" Then
FrontPage_Summary
End If

If Target.Address = "$B$8" Then
FrontPage_Summary
End If

MsgBox Target.Address

I can hit the delete key in cells B6,B7 or B8 and I get the msgbox but it doesn't execute the FrontPage_Summary procedure...?!

End Sub

 

[VoG]

What is the FrontPage_Summary code?

 

[Richard Schollar]

Place a breakpoint on the first line (place the cursor on the line and hit F9):

If Target.Address = "$B$6" Then

then go and select one of your cells (B6) and hit Delete. Then step thru the code in the VBE sign F8 and see if your code is actually getting activated.