Code to find a value within range without looping
If Not IsError(Application.Match("Blah-Blah", Sheets("Sheet5").Range("A:A"), 0)) Then
'The value present in that range
End If
Source
https://stackoverflow.com/questions/11848986/copying-the-cell-value-preserving-the-formatting-from-one-cell-to-another-in-exc
