Thank you so much - this worked like a charm!

"keepITcool" wrote in message
...



"boe" wrote:

Sub ButtonRemove()
Dim myshape As Shape
For Each myshape In ActiveSheet.Shapes

if myshape.topleftcell.column<1 then

myshape.Delete

endif

Next myshape
End Sub


2 lines added :)

keepITcool

< email : keepitcool chello nl (with @ and .)
< homepage: http://members.chello.nl/keepitcool