Highlight numerous referenced cells through Loop

[heifer624]

I have the need to highlight about 20K+ cells in one worksheet with cells referenced in another worksheet. Need a VBA loop solution for this. As example:
Have a sheet named "GoBaby" in which the cells need highlighting if they match the cell values referenced in sheet named "Matched" . So Matched A1 value is P3 so I need P3 on GoBaby highlighted. Then Matched A2 value is Z8 so I need Z8 on GoBaby highlighted. Then Matched A3 value is X18 so I need X18 on GoBaby highlighted. etc, etc.

Thanks in advance

 

[footoo]

Perhaps:

Dim cel As Range
On Error Resume Next
For Each cel In Sheets("Matched").UsedRange
    Sheets("GoBaby").Range(cel).Interior.Color = vbYellow
Next

 

[Peter_SSs]

Could you use standard Conditional Formatting? (Not sure how it will go with such a big range but you could give it a go)

If all the addresses are listed in column A of 'Matched' (can adapt if multiple columns are used on 'Matched') then would this work for you?
1. On 'GoBaby' select fthe whole range that could possibly be involved.
2. Home ribbon tab -> Conditional Formatting -> New rule .. -> Use a formula to determine which cells to format -> Format values where this formula is true: =MATCH(ADDRESS(ROW(),COLUMN(),4),Matched!$A:$A,0) -> Format... -> Choose your format -> OK -> OK

 

[Rick Rothstein]

For a macro solution, maybe something like this...

[table="width: 500"]
[tr]
	[td]Sub ColorMatchedCells()
  Dim Cell As Range
  Application.ReplaceFormat.Clear
  Application.ReplaceFormat.Interior.Color = vbYellow
  For Each Cell In Sheets("Matched").UsedRange
    If Len(Cell.Value) Then Sheets("GoBaby").UsedRange.Replace Cell.Value, "", xlWhole, , False, , False, True
  Next
  Application.ReplaceFormat.Clear
End Sub[/td]
[/tr]
[/table]

 

[heifer624]

Works Great. Thanks

 

[heifer624]

Perhaps:

Dim cel As Range
On Error Resume Next
For Each cel In Sheets("Matched").UsedRange
    Sheets("GoBaby").Range(cel).Interior.Color = vbYellow
Next

Works Great. Thanks