Sub chekcon()
Dim check, book1 As Workbook
Dim wk1, wk2 As Worksheet
Dim i As Integer
Dim lstrw As Integer
Set book1 = ThisWorkbook
Set check = Workbooks("Z:\66205_TEMPLATES_20996\Check Control Processing Form-XX-XX-XXXX.XLS")
Set wk1 = book1.Worksheets("sheet1")
Set wk2 = check.Worksheets("sheet1")
lstrw = book1.Cells(65530, 1).End(xlUp).Row
For i = 2 To lstrw
book1.Cells(i, 1).Value = check.Cells(3, 3).Value
book1.Cells(i, 2).Value = check.Cells(11, 5).Value
book1.Cells(i, 3).Value = check.Cells(1, 4).Value
book1.Cells(i, 4).Value = check.Cells(1, 10).Value
book1.Cells(i, 5).Value = check.Cells(13, 5).Value
book1.Cells(i, 5).Value = check.Cells(3, 6).Value
book1.Cells(i, 6).Value = check.Cells(11, 10).Value
book1.Cells(i, 7).Value = check.Cells(3, 11).Value
book1.Cells(i, 8).Value = check.Cells(43, 4).Value
book1.Cells(i, 9).Value = check.Cells(45, 4).Value
fn = book1.Cells(i, 10).Value
check.SaveAs Filename:="Z:\66205_TEMPLATES_20996\" & fn
Next i
End Sub
Bookmarks