Macros to move Shapes

Hello,

I've created a button, using "Shapes" in Excel, with macros which will move it from "Pending" to "Completed" and back(and it works). However, I would like to also have the option to move it to "All" to show both "Pending" and "Completed" rows but I can't figure it out. Would anyone be able to assist me? Thank you in advance! This is what I have to move the button so far:

Sub MoveBtn()
With Sheet1
If .Range("B1").Value = "Pending" Then
.Shapes("MoveBtn").IncrementLeft 103
.Range("B1").Value = "Completed"
Else
.Shapes("MoveBtn").IncrementLeft -103
.Range("B1").Value = "Pending"

End If

End With

End Sub

Does the button have to move and does the text in "B1" need to change?
You could just change the text, caption, on the button if you want to.
I also would use the left of the button in relation to the left of the sheet.

This is just an example of an easy to maintain/change macro.
Play with it and let us know what you want to change.

Please Login or Register  to view this content.

This more in line of what you requested in Post #1
Change the left values and the Button Name (here it is "Button 2")

Please Login or Register  to view this content.

Thank you, I will try it out and see how it works. I appreciate your help and am constantly and slowly learning about VBA and macros.