VBA search page hyperlinks from data validation list

[CalRich1023]

Hello,

I've a "search" page that loops through all the sheets to return data to my search page and produce a hyperlink to each sheet said data is found. One of the search criteria is from a data validation list. I believe this is messing up the ordered list of search results. I have the code below that works perfect for the first item in the data validation list, but as soon as i search for something that is lower on the data validation list, my results get all jumbled and it messed everything up. Could someone please help correct my error in this code?

Worksheets("SEARCH").Hyperlinks.Add Anchor:=Cells(i + 1, "A"), Address:="", SubAddress:=Worksheets(i).Name, TextToDisplay:=Worksheets(i).Name

 

[CalRich1023]

Update:
It works fine with this code, not producing hyperlinks. I think i'm just not familiar enough with hyperlinks to make this work properly.

Worksheets("SEARCH").Cells(lastrow + 1, 1).Value = Worksheets(i).Name

 

[CalRich1023]

Hello,

I've a "search" page that loops through all the sheets to return data to my search page and produce a hyperlink to each sheet said data is found. One of the search criteria is from a data validation list. I believe this is messing up the ordered list of search results. I have the code below that works perfect for the first item in the data validation list, but as soon as i search for something that is lower on the data validation list, my results get all jumbled and it messed everything up. Could someone please help correct my error in this code?

Worksheets("SEARCH").Hyperlinks.Add Anchor:=Cells(i + 1, "A"), Address:="", SubAddress:=Worksheets(i).Name, TextToDisplay:=Worksheets(i).Name

Update:
It works fine with this code, not producing hyperlinks. I think i'm just not familiar enough with hyperlinks to make this work properly.

Worksheets("SEARCH").Cells(lastrow + 1, 1).Value = Worksheets(i).Name

Update 2:
Sometimes i feel silly. I got this fixed with the following change:
Worksheets("SEARCH").Hyperlinks.Add Anchor:=Cells(lastrow + 1, "A"), Address:="", SubAddress:=Worksheets(i).Name, TextToDisplay:=Worksheets(i).Name

Thanks anyway!