diciamo che è Natale ......
Sarei comunque curioso di sapere il perchè hai fatto chiudere la discussione nell'altro forum, il suggerimento di Alfredo (ciao) era perfetto:
Sub FIXFORMULE()
Dim rng As Range, cel As Range, mData As Variant, pos As Integer
Sheets("Foglio1").Activate
Set rng = Range("C9:F9")
For Each cel In rng
If IsError(cel) Then
pos = InStr(cel.Formula, "!")
cel = "=" & "IVI!" & Mid(cel.Formula, pos + 1, Len(cel.Formula))
End If
Next
End Sub
Vale solo per il range C9:F9, per gli altri provvedi in autonomia.
NB:
ma perchè cancelli i fogli e li ricrei?, non basterebbe "pulirli"
saluti