Make all Vloop formulae cell values

[rdev]

I have a 10- sheets workbook with many Vlookup formulae in all of them . For each Vlookup formula ,I want to get them replace by the result returned by the Vlookup formula, in simple terms do a copy , pastespecial values on each cell having a vlookup formula. How can i do this with a macro?
Thks

 

[nightcrawler23]

Try something like this

Sub temp()
Dim formulaString As String

formulaString = Range("C1").Formula
If Mid(formulaString, 2, 7) = "VLOOKUP" Then
    Range("C1").Formula = Range("C1").Value
End If
End Sub