Hi, you're one of the many examples that show that GPT is going to cause many issues with would-be programmers.

You find a code that looks lke it does what you want but the user lacks the knowledge to read and understand what the coderealy does.

In fouy serach sheet you mark a cell in RED under a language, but how do you know which language is the one to mark.

The result now is Guide 1 found and then nothing more.

YOU do not know how to code but you also do NOT explain what you want to achieve.

Please be more explicit and please, also tell us which version of Excel you're using

Try the attached version.

Dear Velouria,
Thank you very much for your help. It does work sometimes but not always.
For exemple: I search 01-05/12/23, I get No guides available for the specified date range although Guide1, Guide 2 & Guide 8 have all theses cells in yellow.
But if I search 02-05/12/23, it works.
Any idea why this anomaly?
Again, thank you so much for your help.
P.S. I promised I will compare the code with what I had that did ot work to learn 🙂 

Dear Hans,
Thank you for your help. I am using Excel 2016.
Sorry if I did not explain enough. The languages (red cells on the front page) are not relevant, the search is on the yellow cells into the other pages of the workbook. These cells show when a guide is available and this is the expected result.

Ahh, I had overlooked the fact that your month header cells are also dates (the first of each month) so it is matching those if you use the first of a month and they are not yellow.

Try this version.

Dear Velouria,
You're great, it works perfectly, thank you so much.
I do not want to abuse, but I have another request. This is not too important, just for the beauty of it. Is it possible to make the result (Guide 1, Guide 2...) as links to the corresponding page?

Not with the current setup because you can't have multiple hyperlinks in one cell. You'd have to separate the results into multiple cells, then hyperlink them.

Alright, that was not important anyway.
Thanks again for your precious help.

Just for fun, not a hyper link but it works, try this

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

If Not Intersect(Target, Range("F2")) Is Nothing And InStrRev(Target.Text, "Guide") > 0 Then

Dim pos1 As Integer, pos2 As Integer, X As Integer, Y As Integer

Dim msgText As Variant, gArr() As Variant

pos2 = 1: Y = 0: msgText = ""

For X = pos1 To Len(Target.Text)

pos1 = InStr(pos1 + 1, Target.Text, "Guide ")

If pos1 = 0 Then Exit For

pos2 = InStr(pos1 + 1, Target.Text, "Guide ")

If pos2 = 0 Then

Y = Y + 1

msgText = msgText & Y & ". " & Right(Target.Text, Len(Target.Text) - (pos1 - 1))

ReDim Preserve gArr(1 To Y)

gArr(Y) = Right(Target.Text, Len(Target.Text) - (pos1 - 1))

Else

Y = Y + 1

msgText = msgText & Y & ". " & Mid(Target.Text, pos1, (pos2 - pos1) - 2)

ReDim Preserve gArr(1 To Y)

gArr(Y) = Mid(Target.Text, pos1, (pos2 - pos1) - 2)

End If

If pos2 = 0 Then Exit For

msgText = msgText & IIf(Y Mod 3 = 0, Chr(10), Chr(9))

Next X

X = Application.InputBox(msgText, "Enter # 1 - " & Y, 1, Type:=1)

If Val(X) > 0 And Val(X) <= Y Then

Worksheets(gArr(X)).Activate

End If
Cancel = True

End If

End Sub
[code]
 
Place this code in the same worksheet and right click F2 to activate
                                                                                                	                                                

                                                        
 
                                                    
	                                        

I integrated the code here, just to make it easier

Remember, right-click cell F2