resumir macro que utiliza hypervinculos

[Galactico]

buenas tardes

 

utilizo este código para cargar una macro una vez que haga click en una cierta celda

 

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
        If Target.Range.Address = "$BF$1" Then
        Call macro1
        End If

        If Target.Range.Address = "$BF$2" Then
        Call macro2
        End If

 		If Target.Range.Address = "$BF$2" Then
        Call macro2
        End If
End Sub

el tema es que necesito poder realizar esto para muchas mas celdas (de la misma columna) pero no se como hacer algo generico sin tener que copiar y pegar 

 

gracias por su ayuda

 

saludos!

[Antoni]

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
   If Target.Address Like = "$BF*" Then Call macro1
End Sub