Thread: Add ActiveX Control with VBA

Hi,

I've been searching around the forum but can't find an answer for this.

I have a macro that builds an index list of certain sheets in my workbook. It refreshes each time a new sheet is added or removed.

For each index item, I want to add an activeX image control which, when clicked, links to another sheet.

I know how to do this manually, i.e. by adding the image control, and then using a private sub like the following (in the code for that sheet):

Private Sub GoToHome_Click()

Worksheets("SheetX").Activate

End Sub

What I want to know is if there is a way use VBA to automate the creation of this image control and write the code for the click event (such that I can include it in the macro which refreshes the index list)?

I know that I can use a hyperlink to achieve the same result (of navigating to another sheet) but the use of the activeX image control is something that I want for stylistic reasons.