We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Sub deleteShapes() Dim shp As Shape For Each shp In ActiveSheet.Shapes If Not Intersect(shp.TopLeftCell, Range("B2:R100")) Is Nothing Then shp.Delete End If Next End Sub
|Excel VBA - Creating a recordset that is filtered||5||34|
|Geting the MAX and MIN from a group and placing it on another sheet in Excel||6||34|
|comparsion of two excel and get the result in another sheet using macro/VBA||3||48|
|Excel VLookup in a macro where returned column changes every month||7||11|