Hi Evryone,

The code I have below only links the cells for the Income Statement for the "Sheet1" located in this path "C:\Users\desmondm\Desktop\Group Accounts 2013-2014\March 2013\Accpac Reports\Academy-xpert for Paracon_FR.001.xls")" in which I linked the cells with the cells of of "Academy"Sheet in book named XPERT.xlsx" the problem is that it doesnt link the cells in the "Sheet1" located in this path "
("C:\Users\desmondm\Desktop\Group Accounts 2013-2014\March 2013\Accpac Reports\Central Costs-xpert for Paracon_FR.001.xls") which also ha to to linked to the sheet named "Central costs" for a book named XPERT.xlsx.the problem is that I want the macro to link the cells and then save and close the books and then perform the same operation for the different sheets.Can someone please help Ive been trying to figure it out for the last 3 hours

Sub Update_Months()
Dim answer, Ws1, Ws2, Ws3 As Workbook
Dim wb As Workbook
answer = InputBox("Which month do you want to update?" & vbCrLf & "Ex:March=1,April=2")
Set del = Workbooks.Open("C:\Users\desmondm\Desktop\Group Accounts 2013-2014\March 2013\Accpac Reports\Academy-xpert for Paracon_FR.001.xls")
Set del_1 = Workbooks.Open("C:\Users\desmondm\Desktop\Group Accounts 2013-2014\March 2013\Paracon Report\2014 - XPERT.xlsx")
Set Ws1 = del.Sheets("Sheet1")
Set Ws2 = del_1.Sheets("Academy")
Set del2 = Workbooks.Open("C:\Users\desmondm\Desktop\Group Accounts 2013-2014\March 2013\Accpac Reports\Central Costs-xpert for Paracon_FR.001.xls") 'open Central costs
Set Ws3 = del2.Sheets("Sheet1")
Set wb = del.del_1
Select Case answer

'Copy Data for the month of March

Case 1

'Academy Income Statement
With wb
Ws2.Range("E22").Value = Ws1.Range("C23").Value
Ws2.Range("E26").Value = Ws1.Range("C27").Value
Ws2.Range("E28:E49").Value = Ws1.Range("C28:C49").Value
Ws2.Range("E57:E58").Value = Ws1.Range("C56:C57").Value
Ws2.Range("E60:E64").Value = Ws1.Range("C58:C62").Value
Ws2.Range("E70").Value = Ws1.Range("C67").Value
Ws2.Range("E72:E84").Value = Ws1.Range("C68:C80").Value
Ws2.Range("E92:E97").Value = Ws1.Range("C86:C91").Value
Ws2.Range("E103:E111").Value = Ws1.Range("C94:C102").Value
Ws2.Range("E118:E123").Value = Ws1.Range("C106:C111").Value
Ws2.Range("E129:E134").Value = Ws1.Range("C116:C121").Value
Ws2.Range("E136:E138").Value = Ws1.Range("C122:C124").Value
Ws2.Range("E142:E172").Value = Ws1.Range("C127:C159").Value
Ws2.Range("E189:E197").Value = Ws1.Range("C175:C183").Value
Ws2.Range("E203:E206").Value = Ws1.Range("C187:C190").Value
Ws2.Range("E213:E217").Value = Ws1.Range("C196:C200").Value
Ws2.Range("E223:E227").Value = Ws1.Range("C207:C211").Value

'Central Costs Income Statement

Set Ws4 = del_1.Sheets("Central costs")
Ws4.Range("E22").Value = Ws3.Range("C23").Value
Ws4.Range("E26").Value = Ws3.Range("C27").Value
Ws4.Range("E28:E49").Value = Ws3.Range("C28:C49").Value
Ws4.Range("E57:E58").Value = Ws3.Range("C56:C57").Value
Ws4.Range("E60:E64").Value = Ws3.Range("C58:C62").Value
Ws4.Range("E70").Value = Ws3.Range("C67").Value
Ws4.Range("E72:E84").Value = Ws3.Range("C68:C80").Value
Ws4.Range("E92:E97").Value = Ws3.Range("C86:C91").Value
Ws4.Range("E103:E111").Value = Ws3.Range("C94:C102").Value
Ws4.Range("E118:E123").Value = Ws3.Range("C106:C111").Value
Ws4.Range("E129:E134").Value = Ws3.Range("C116:C121").Value
Ws4.Range("E136:E138").Value = Ws3.Range("C122:C124").Value
Ws4.Range("E142:E172").Value = Ws3.Range("C127:C159").Value
Ws4.Range("E189:E197").Value = Ws3.Range("C175:C183").Value
Ws4.Range("E203:E206").Value = Ws3.Range("C187:C190").Value
Ws4.Range("E213:E217").Value = Ws3.Range("C196:C200").Value
Ws4.Range("E223:E227").Value = Ws3.Range("C207:C211").Value

End Select
End Sub

Regards
Desmond