Sub Test() ActivePage.ActiveLayer.CreateEllipse 2, 3, 4, 5 ActiveShape.URL.BookMark = "Page 1" End Sub