Hi everyone! I am trying to create a macro that filters a sheet based on a certain value, then select a cell that contains a hyperlink and click on that hyperlink that leads to another sheet. I've already managed to achieve the first part but the hyperlink part isn't working, does anyone know how it could be done? Under these lines I'll copy the code I currently have and color the part that I have issues with. Thank you in advance.
Rich (BB code):
Sub FilterBasedOnCellValueAnotherSheet()
Dim category As Range
Dim LR As Long
With Worksheets("Result")
Set category = .Range("B3")
End With
With Worksheets("Summary")
With .Range("B3:M300")
.AutoFilter Field:=1, Criteria1:=category, VisibleDropDown:=True
End With
LR = Range("B" & Rows.Count).End(xlUp).Row
Range("L3:L" & LR).SpecialCells(xlCellTypeVisible).Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End With
End Sub
Last edited by a moderator: