Run A Macro On Cell Click

i have this piece of

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
If Target.Range.Address "$A$1" Then macro1
Exit Sub
End Sub

I want so when i click on cell A1 it will run macro1.

So far the click on the cell works, but it works with every single cell I click on. How to I get it to just work with cell A1 instead of everyone single cell I click on?

Also, there are about 30 different cells that will run different macros, how would I go about creating adding the code the one above without having to create separate sub worksheets?