Sub RunTaf()
Dim i As Integer
Dim fname As String
For i = 1 To 10
'MsgBox Sheets("ITEMS").Cells(i + 1, 1).Value
fname = Cells(2, 3).Value
Sheets("SUMMARY").Cells(2, 3).Value = Sheets("ITEMS").Cells(i + 1, 1).Value
ActiveWorkbook.RefreshAll
Application.CalculateFull
ActiveWorkbook.SAVEAS Filename:= _
"H:\SUPPLY PLANNING\ANALYSIS\MODELS\" & fname & ".xls", FileFormat:=xlExcel8, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
Next
End Sub