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