Need to boost the visibility of your question for solutions? Use the Experts Exchange Help Bell to confirm priority levels and contact subject-matter experts for question attention. Check out this how-to article for more information.
Option Explicit Sub CompareData() 'Decalre Variable Dim Adr As String 'Address of Range containing Comparison data ' Define Column for Comparison Adr = Range(Cells(2, 5), Cells(1, 5).End(xlDown)).Address Debug.Print "=OR(EXACT(TRIM(RC1)," & Adr & "))" 'analyse if formula is correct 'Select Cell for formula Range("B2").Select 'Array Formula for Comparison ActiveCell.FormulaArray = "=OR(EXACT(TRIM(RC1)," & Adr & "))" End Sub
Join the community of 500,000 technology professionals and ask your questions.