hyperlink to unhide and activate another sheet

Hi,

I have workbook with sheet1 named "table", and hidden sheet2 ("fruits") and hidden sheet3 ("vegetables").

In sheet1 there is "fruit" on A1 and "vegetables" at cell A2.
B1 consists "apple", B2 "tomato".

How can I create some hyperlink to unhide and activate specific worksheet when click on B1 or B2 ?

Sheet hide/unhide can do with VBA

Sub HIDE()
Sh = Cells(1, ActiveCell.Column)
Sheets(Sh).Visible = False
End Sub


Sub UNHIDE()
Sh = Cells(1, ActiveCell.Column)
Sheets(Sh).Visible = TRUE
End Sub

but I want to run macro during click on the text.

Now I know that I have to go to B1 and INSERT > HYPERLINK.

Than write macro:

Please Login or Register  to view this content.

... but how can I insert this macro for each cell from B1 to B100 ??