How do you make a shape selected in VBA visible?

[QuantBurner]

Hi,
I have a macro that loops through all the shapes in an area. It selects the shape so the user can see what's been selected and then asks the user if he wants to keep it or not. This all works fine if I step through the code or execute from within VBA. However, if I run the macro via a button, nothing appears to be selected. So, how to I make the selected shape visible to the user?

Thanks!

Here's my code:

For Each shpShape In Activesheet.Shapes
If shpShape.Top >= dblTop And _
shpShape.Left >= dblLeft And _
shpShape.Left + shpShape.Width <= dblRight And _
shpShape.Top + shpShape.Height <= dblBottom Then
shpShape.Select
strKeepIt = MsgBox("Keep this text box?", vbQuestion + vbYesNo)
If strKeepIt = 7 Then shpShape.Delete
End If
Next shpShape

 

[JackDanIce]

Do you have the line

Application.ScreenUpdating = False

In your code before the loop below occurs?

 

[QuantBurner]

Nope. I don't have that line in the code. Thanks though.

 

[QuantBurner]

Just to clarify: I can't see what's been selected if I click the run button in the VBA editor. It's only when I step through the code that I can see what's been selected. Seems like I need something like DoEvents or SetFocus?

 

[QuantBurner]

Problem Solved!
Even though I never turned screenupdating off, I got my macro to work by turning screenupdatingon everytime I wanted to show what was selected.
Cheers

 

[activethistle]

Sorry to jump on an old thread, but this is exactly what I'm after. Except I'm writing for a client in Excel 2003 and it doesnt appear to work - wherever I put it!!

This is the code i have:

Application.ScreenUpdating = True
For Each n In ActiveSheet.Shapes
Application.ScreenUpdating = True

n.Select

Application.ScreenUpdating = True


response = MsgBox(n.Name & vbCrLf & "Would you like to rename this control?", vbYesNo)

If response = vbYes Then

newname = InputBox("Enter new control name")
If newname <> "" Then
n.Name = newname
Else
MsgBox "Not suitable"
End If


End If
If MsgBox("Bail?", vbYesNo) = vbYes Then Exit Sub
Next n


Any thoughts?

Cheers.