Macro to double click cell A2 on Active Sheet once Drop down in A1 has been selected from Data Validation List

[howard]

Once a user has selected an item from the drop down in Cell A1 on the active sheet ("Adjustments using Data Validation , the user double clicks on A2 , which has a hyperlink formula, and it will then go to the appropriate cell

I tried to write code to do this, but it only goes to A2 and does not go to the appropriate cell for Eg A55

Kindly amend my code

 Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then 'Change "$A$1" to the cell address of your drop down list
        On Error Resume Next
        Dim hyperlink As hyperlink
        Set hyperlink = Range("A2").Hyperlinks(1) 
        On Error GoTo 0
        If Not hyperlink Is Nothing Then
            hyperlink.Follow
        End If
    End If
End Sub

 

[howard]

Many Thanks Jafaar, but certain of your code appears in red in the worksheet module

 Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As LongPtr)
    Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long

 

[Jaafar Tribak]

Many Thanks Jafaar, but certain of your code appears in red in the worksheet module

 Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As LongPtr)
    Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long

You can ignore the code in red and leave it as is. It is for conditional compilation. It won't affect anything.

Edit:
BTW, did the code I posted actually work for clicking the hyperlink in cell A2 ?

 

[howard]

Thanks for the explantion and your help. Unfortunately, I could not get the code to work. JimmyPop's solution worked for me