VBA Find with multiple Criteria

[hajiali]

How can add a second Criteria to find the Shift in column X to that of Column G or Column K. in the example the find locates "JODY" in Cell L5 and not F20. see below let me know if I need to clarify anything. Any information is greatly appreciated

For Each r In Range("Y5:Y138")
    Set Rclr = Range("F4:L500").Find(r, LOOKAT:=xlWhole)
'NAME NOT FOUND
        If Rclr Is Nothing Then
            r.Font.ColorIndex = 3
            GoTo r
        End If

Book2
	A	B	C	D	E	F	G		I		K	L	M	N	O	P	Q	R				V	W	X	Y
1												Wednesday, May 15, 2024
2
3						NAME	SHIFT				SHIFT	NAME											SHIFT TRADES
4						JOHN	03:15-11:15				11:00-19:30	RYAN											NAME	TIME (TTW, PSTW)	FOR
5						BILL	03:15-11:15				11:00-19:30	JODY											JADE	04:30-13:00	JODY
6						AMANDA	04:15-12:45				12:30-21:00	MOE
7						PETER	05:30-14:00				13:15-21:45	JENNIFER
8						LIZ	04:30-13:00				12:45-21:15	JENN
9
10
11
12						NAME	SHIFT				SHIFT	NAME
13
14						DOM	03:15-11:15				11:00-19:30	BRIAN
15						TOM	03:15-11:15				11:00-19:30	SARA
16						WILL	03:15-11:15				11:00-19:30	BRYAN
17						HAJI	03:15-11:15				12:30-21:00	TOM
18						ALI	05:30-14:00				14:45-23:15	MARY
19						TIM	05:30-14:00				14:45-23:15	ERIK
20						JODY	04:30-13:00				12:30-21:00	STEP
21						LISA	05:30-14:00				14:45-23:15	TONI
Sheet1

Cell Formulas
Range	Formula
V5:V21	V5	=IFERROR(RIGHT(U5,LEN(U5)-FIND("-",U5)),"")