Range Value only certain formulas in a range?

[neov]

I have a range of data that comes from Vlookups....in column A are the department/account numbers, columns b - k are totals for Jan - Dec, and each department has subsets, for example, rows 2-5 are payroll related, row 6 is a subtotal for that subset, then rows 7-10 are another subset, etc etc...

What I'd like to do is have a macro that performs a copy/paste special/value function ONLY on the cells that have a vlookup, leaving the sum's that make up the subtotals for each month intact...

Is this possible?

Thanks in advance.

 

[fairwinds]

Hi,

Try:

Sub xxx()
Dim ce As Range
For Each ce In Range("B2:K20")
If Left(ce.Formula, 8) = "=VLOOKUP" Then ce = ce.Value
Next ce
End Sub

 

[neov]

perfect

awesome

thanks