You could try something like:Sub FindCity()LookFor = "Redwood City"Set OuputRange = Range("E1")r = 0For Each c In Range("A1:A100")a = InStr(c, LookFor)If a > 0 ThenOuputRange.Offset(r, 0) = cr = r + 1End IfNextEnd Sub