[vba]Sub Cname2()

Dim i As Integer

For i = 4 To Sheets.Count
With Sheets(i)

Dim MyCname As String
MyCname = "=IF(ISNA(VLOOKUP(R7C7,Customer_List,2,0)),"""", VLOOKUP(R7C7,Customer_List,2,0))")"

.Range("A7") = MyCname
.Range("A7").Value = .Range("A7").Value

End With

End Sub
[/vba]