VBA code is clearing my undo stack

[Wulluby]

Howdy Chandooins,

Anyone know how I can stop this code from clearing my undo stack? The code is in a sheet and is used to determine which picture to display when a user selects a number from a drop down.

If there is now way round it I can have it attached to a button that the user will have to remember and use when changing the value but it would be good if I could remove that interaction.

Thanks in advance

Option Explicit
  Private Sub Worksheet_Calculate()
  Dim oPic As Picture
  Me.Pictures.Visible = False
    
  With Range("G10")
  For Each oPic In Me.Pictures
  If oPic.Name = .Text Then
  oPic.Visible = True
  oPic.Top = .Top
  oPic.Left = .Left
  Exit For
  End If
  Next oPic
  End With
  
  End Sub

 

[Luke M]

Here's an alternative method that doesn't use a macro, and hence won't mess up the Undo stack.
http://www.excelguru.ca/content.php?279-VLOOKUP-for-Pictures