I am trying to use the following

If InStr(1, "C:\", Range(strC & r).Formula) 0 Then
Print #1, r & strC & " " & " " & Range(strC & r).Formula
End If

strC = D
r = 21
Range(strC & r).Formula = "=(ISERROR(GET
PIVOTDATA("EQPSERIAL",'C:\Reports..........."

The print statement never happens.

Can anyone tell me what is wrong?

Thanks
--
Shell