Adding an IfError function to VBA code

[pleasehalp]

I've been looking at the forum and I'm a bit confused on how this function works. I just want these vlookups to return a value and if they can't find one then to just leave it blank.

Here is an example of some vlookups that I want to have if error values added to. Thanks for the help.

Range("S1").FormulaR1C1 = "=Sheet0!RC[3]"
Range("S2").FormulaR1C1 = "=VLOOKUP(RC[-3],Sheet0!R2C5:R" & LR & "C31,18,FALSE)"
Range("T1").FormulaR1C1 = "=Sheet0!RC[5]"
Range("T2").FormulaR1C1 = "=VLOOKUP(RC[-4],Sheet0!R2C5:R" & LR & "C31,21,FALSE)"
Range("U1").FormulaR1C1 = "=Sheet0!RC[5]"
Range("U2").FormulaR1C1 = "=VLOOKUP(RC[-5],Sheet0!R2C5:R" & LR & "C31,22,FALSE)"
Range("V1").FormulaR1C1 = "=Sheet0!RC[8]"
Range("V2").FormulaR1C1 = "=VLOOKUP(RC[-6],Sheet0!R2C5:R" & LR & "C31,26,FALSE)"

 

[dversloot1]

I have this code to wrap an existing formula in excel with the Iferror function:
Select cells you'd like to wrap with the iferror formula then run macro:

Sub Add_IFERROR_Selection()
Dim myCell As Range
For Each myCell In Selection.Cells
If myCell.HasFormula And Not myCell.HasArray Then
myCell.Formula = "=IFERROR(" & Right(myCell.Formula, Len(myCell.Formula) - 1) & ",0)"
End If
Next
End Sub

 

[pleasehalp]

That works but it is extremely slow. Does anyone have a better suggestion? Also even though I changed it from 0 to blank it still populates the cells with a zero. I understand that this is probably a format issue with my cells. For instnace i want a % to be blank if the numbers aren't there to calculate it but with this macro it makes it 0% which is not really what it should be.