vba Insert comment for value matches -NFL Teams

[gtd526]

Hello,
If any cell in a range1 is equal to any cell in range2, then insert comment to range1 cell.
Thank you.

NFL.xlsm
	A	B	C	D
1	Range1
2	IND
3	DEN
4	NYG
5	GB			Range2
6	PIT			KC
7	BUF			SF
8	LAC			BUF
9	CLE			PHI
10	HOU
11	JAX
12	CHI
13	TB
14	TEN
15	WAS
16	SF
17	CAR
18	PHI
19	ARZ
20	DAL
21	LAR
22	CIN
23	BAL
24	LVR
25	KC
Test2

 

[gtd526]

Hello,
If any cell in a range1 is equal to any cell in range2, then insert comment to range1 cell.
Thank you.

NFL.xlsm
	A	B	C	D
1	Range1
2	IND
3	DEN
4	NYG
5	GB			Range2
6	PIT			KC
7	BUF			SF
8	LAC			BUF
9	CLE			PHI
10	HOU
11	JAX
12	CHI
13	TB
14	TEN
15	WAS
16	SF
17	CAR
18	PHI
19	ARZ
20	DAL
21	LAR
22	CIN
23	BAL
24	LVR
25	KC
Test2

I found the code to complete the task.
Range1 and Range2 are on different spreadsheets.

Sub Add_Comments()
'add comment to specific cell

    Dim rcell As Range
    Dim commentvalue As String
    Dim rng As Range
    
    Sheet1.Range("A4:A35").ClearComments

    For Each rcell In Sheet1.Range("A4:A" & Sheet1.Range("A" & Sheet1.Rows.CountLarge).End(xlUp).Row)
    
        For Each rng In Sheet3.Range("AG3:AG10")
            If rng.Value = rcell Then
                    commentvalue = ("All(-)ATS")
                    rcell.AddComment commentvalue
                Exit For
                End If
            Next rng
    Next
    
End Sub