VBA Not working help improve

SanjayGulatiMusafir

Board Regular
Joined
Sep 7, 2018
Messages
66
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 ?

Rich (BB code):
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
 

Some videos you may like

Excel Facts

How can you turn a range sideways?
Copy the range. Select a blank cell. Right-click, Paste Special, then choose Transpose.

My Aswer Is This

Well-known Member
Joined
Jul 5, 2014
Messages
16,762
Office Version
2013
Platform
Windows
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

Well-known Member
Joined
Oct 27, 2005
Messages
19,095
Office Version
2013
Platform
Windows
Try it this way....

Code:
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
 

Subscribe on YouTube

Watch MrExcel Video

Forum statistics

Threads
1,106,308
Messages
5,510,523
Members
408,794
Latest member
Eddie74

This Week's Hot Topics

  • Turn fraction around
    Hello I need to turn a fraction around, for example I have 1/3 but I need to present as 3/1
  • TIme Clock record reformatting to ???
    Hello All, I'd like some help formatting this (Tbl-A)(Loaded via Power Query) [ATTACH type="full" width="511px" alt="PQdata.png"]22252[/ATTACH]...
  • TextBox Match
    hi, I am having a few issues with my code below, what I need it to do is when they enter a value in textbox8 (QTY) either 1,2 or 3 the 3 textboxes...
  • Using Large function based on Multiple Criteria
    Hello, I can't seem to get a Large formula to work based on two criteria's. I can easily get a oldest value based one value, but I'm struggling...
  • Can you check my code please
    Hi, Im going round in circles with a Compil Error End With Without With Here is the code [CODE=rich] Private Sub...
  • Combining 2 pivot tables into 1 chart
    Hello everyone, My question sounds simple but I do not know the answer. I have 2 pivot tables and 2 charts that go with this. However I want to...
Top