Need help merging to macros (IF / OR Statement)

[scatki]

Hi,

I'm hoping someone can help me with the code to combine the two macros below. They are identical except for the color boxes they are looking for. I'm looking for one macro to clear both the red and green boxes.

Thanks in advance or anyone that has a look!

-------------------------------------------------------------------------

Sub DeleteRedBox()

Dim shp As Shape

'Loop through each shape on active sheet

For Each shp In ActiveSheet.Shapes

'Find shapes with a name starting with "RedBox_"

If Left(shp.Name, 7) = "RedBox_" Then

'Delete the shape

shp.Delete

End If

Next shp

End Sub

-----------------------------------------------------------


Sub DeleteGreenBox()

Dim shp As Shape

'Loop through each shape on active sheet

For Each shp In ActiveSheet.Shapes

'Find shapes with a name starting with "GreenBox_"

If Left(shp.Name, 9) = "GreenBox_" Then

'Delete the shape

shp.Delete

End If

Next shp

End Sub

 

[kevin9999]

Have you tried:

If Left(shp.Name, 7) = "RedBox_" Or Left(shp.Name, 9) = "GreenBox_" Then

 

[scatki]

If Left(shp.Name, 7) = "RedBox_" Or Left(shp.Name, 9) = "GreenBox_" Then

Thank you Kevin, that's it! I really appreciate your help.

 

[kevin9999]

Thank you Kevin, that's it! I really appreciate your help.

You're welcome & thanks for the feedback

 

[smozgur]

Thank you Kevin, that's it! I really appreciate your help.

As you also confirmed, the solution post is supposed to be #2. Therefore, I switched the marked solution accordingly.

In your future questions, please mark the post as the solution that answered your question to help future readers.