So if you have 3 buttons (shapes) with names 1, 2 and 3,
Code:If SomeCondition = True Then Worksheets("SheetName").Shapes("1").Left = Worksheets("SheetName").Shapes("2").Left Worksheets("SheetName").Shapes("2").Visible = False Else Worksheets("SheetName").Shapes("1").Left = 10 ' Or whatever was the original left position Worksheets("SheetName").Shapes("2").Visible = True End If




Reply With Quote
Bookmarks