I'm trying to find a fast way to locate all of my Vlookup formulas and replace them as values. Apparently I left my brain at home today. Can anyone please help?
Dim Rng As Range, ix As Long
Set Rng = Intersect(Range("a:a"), ActiveSheet.UsedRange)
For ix = Rng.count To 1 Step -1
If Trim(Replace(Rng.Item(ix).Text, Chr(160), Chr(32))) = "VLookup" Then 'truncates the value of cells, then makes the action specified below
Rng.Item(ix).Copy.pastevalues
End If
Next
Mike
____________________
Mike
Dim Rng As Range, ix As Long
Set Rng = Intersect(Range("a:a"), ActiveSheet.UsedRange)
For ix = Rng.count To 1 Step -1
If Trim(Replace(Rng.Item(ix).Text, Chr(160), Chr(32))) = "VLookup" Then 'truncates the value of cells, then makes the action specified below
Rng.Item(ix).Copy.pastevalues
End If
Next
Mike
____________________
Mike