Why do you need Align dialog box in VBA?
It's easier Dim s As Shape, s1 As Shape s1.LeftX = s.LeftX s1.RightX = s.RightX s1.TopY = s.TopY s1.BottomY = s.BottomY