VBA Not working help improve

[SanjayGMusafir]

Dear Experts
I wrote a VBA copy bits from here and there. It worked fine, the day I created, But now it's giving continuous error. It stops at the Red highlighted point and gives error. Can you help me find the error and improve. Thanks a lot ?

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)


    If Target.Name = "Astro - Dosha/Yoga" Then
    Call YogaSort
    Else
    
    If Target.Name = "Astro - Remedies/Gems" Then
    Call RemediesSort
    Else
    
    If Target.Name = "Astro - Prashna" Then
    Call PrashnaSort
    Else
    
    If Target.Name = "Astro - Events" Then
    Call EventsSort
    Else
    
    If Target.Name = "Astro - Muhurata" Then
    Call MuhurataSort
    Else
    
    If Target.Name = "Info - Spriha Sanjay" Then
    Call SprEventsSort
    Else
    
    If Target.Name = "Astro - Mundane" Then
    Call MundaneSort
    Else
    
    If Target.Name = "Astro - Games" Then
    Call GamesSort
    Else
    Do Nothing
    End If
    
End Sub

 

[My Aswer Is This]

I would think it should be If Target.value=

Or is this a actual named range?

I do not believe that is a proper named Range.

 

[Michael M]

Try it this way....

Private Sub Workbook_SheetFollowHyperlink(ByVal Target As Hyperlink)
    If Target.Name = "Astro - Dosha/Yoga" Then Call YogaSort
    If Target.Name = "Astro - Remedies/Gems" Then Call RemediesSort
    If Target.Name = "Astro - Prashna" Then Call PrashnaSort
    If Target.Name = "Astro - Events" Then Call EventsSort
    If Target.Name = "Astro - Muhurata" Then Call MuhurataSort
    If Target.Name = "Info - Spriha Sanjay" Then Call SprEventsSort
    If Target.Name = "Astro - Mundane" Then Call MundaneSort
    If Target.Name = "Astro - Games" Then Call GamesSort
End Sub