Si1209
07-06-2016, 05:32 AM
Hello
I created a tracker for our area so we could get a detailed break down of whether we are over forecast, what our lost call rate is, the asa and other various factors throughout the day. To check how we are performing against the original forecast an import is having to be run. The import goes to a link and then opens and copies the data in to the spreadsheet. However, on certain computers when it starts to open the link and then the data it just causes Excel to crash and close down.
Not sure whats causing it or why it is happening :banghead::(. Below is the code if anyone would be able to assist that would be great.
Application.ScreenUpdating = False
Range("AE1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Workbooks.Open Filename:= _
"\\Global.lloydstsb.com\file\D_GIEWFM$\SHARED\Data\Redesign Copley.ttx"
Range("B9:B28").Select
Selection.Copy
Windows("Claims Service Tracker 01.07.2016.xlsm").Activate
Range("C83").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Redesign Copley.ttx").Activate
Range("C9:C28").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Claims Service Tracker 01.07.2016.xlsm").Activate
Range("G83").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Redesign Copley.ttx").Activate
Range("D9:D28").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Claims Service Tracker 01.07.2016.xlsm").Activate
Range("J83").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Redesign Copley.ttx").Activate
Range("E9:E28").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Claims Service Tracker 01.07.2016.xlsm").Activate
Range("L83").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Workbooks.Open Filename:= _
"\\Global.lloydstsb.com\file\D_GIEWFM$\SHARED\Data\Redesign NP.ttx"
Range("B9:B28").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Claims Service Tracker 01.07.2016.xlsm").Activate
Range("C112").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Redesign Copley.ttx").Activate
Windows("Redesign NP.ttx").Activate
Range("C9:C28").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Claims Service Tracker 01.07.2016.xlsm").Activate
Range("G112").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Redesign NP.ttx").Activate
Range("D9:D28").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Claims Service Tracker 01.07.2016.xlsm").Activate
Range("J112").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Redesign NP.ttx").Activate
Range("E9:E28").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Claims Service Tracker 01.07.2016.xlsm").Activate
Range("L112").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Workbooks.Open Filename:= _
"\\Global.lloydstsb.com\file\D_GIEWFM$\SHARED\Data\CPT idp tool.ttx"
Range("B9:B28").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Claims Service Tracker 01.07.2016.xlsm").Activate
Range("C141").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("CPT idp tool.ttx").Activate
Range("C9:C28").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Claims Service Tracker 01.07.2016.xlsm").Activate
Range("G141").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("CPT idp tool.ttx").Activate
Range("D9:D28").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Claims Service Tracker 01.07.2016.xlsm").Activate
Range("J141").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("CPT idp tool.ttx").Activate
Range("E9:E28").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Claims Service Tracker 01.07.2016.xlsm").Activate
Range("L141").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Workbooks.Open Filename:= _
"\\Global.lloydstsb.com\file\D_GIEWFM$\SHARED\Data\Claims BAU Run Off idp tool.ttx"
Range("B9:B28").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Claims Service Tracker 01.07.2016.xlsm").Activate
Range("C170").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Claims BAU Run Off idp tool.ttx").Activate
Range("C9:C28").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Claims Service Tracker 01.07.2016.xlsm").Activate
Range("G170").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Claims BAU Run Off idp tool.ttx").Activate
Range("D9:D28").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Claims Service Tracker 01.07.2016.xlsm").Activate
Range("J170").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Claims BAU Run Off idp tool.ttx").Activate
Range("E9:E28").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Claims Service Tracker 01.07.2016.xlsm").Activate
Range("L170").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Workbooks.Open Filename:= _
"\\Global.lloydstsb.com\file\D_GIEWFM$\SHARED\Data\SF&F idp tool.ttx"
Range("B9:B28").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Claims Service Tracker 01.07.2016.xlsm").Activate
Range("C228").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("SF&F idp tool.ttx").Activate
Range("C9:C28").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Claims Service Tracker 01.07.2016.xlsm").Activate
Range("G228").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("SF&F idp tool.ttx").Activate
Range("D9:D28").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Claims Service Tracker 01.07.2016.xlsm").Activate
Range("J228").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("SF&F idp tool.ttx").Activate
Range("E9:E28").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Claims Service Tracker 01.07.2016.xlsm").Activate
Range("L228").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Workbooks.Open Filename:= _
"\\Global.lloydstsb.com\file\D_GIEWFM$\SHARED\Data\FRT idp tool.ttx"
Range("B9:B28").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Claims Service Tracker 01.07.2016.xlsm").Activate
Range("C257").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("FRT idp tool.ttx").Activate
Range("C9:C28").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Claims Service Tracker 01.07.2016.xlsm").Activate
Range("G257").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("FRT idp tool.ttx").Activate
Range("D9:D28").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Claims Service Tracker 01.07.2016.xlsm").Activate
Range("J257").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("FRT idp tool.ttx").Activate
Range("E9:E28").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Claims Service Tracker 01.07.2016.xlsm").Activate
Range("L257").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Workbooks.Open Filename:= _
"\\Global.lloydstsb.com\file\D_GIEWFM$\SHARED\Data\polisy idp tool.ttx"
Range("B9:B28").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Claims Service Tracker 01.07.2016.xlsm").Activate
Range("C286").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("polisy idp tool.ttx").Activate
Range("C9:C28").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Claims Service Tracker 01.07.2016.xlsm").Activate
Range("G286").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("polisy idp tool.ttx").Activate
Range("D9:D28").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Claims Service Tracker 01.07.2016.xlsm").Activate
Range("J286").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("polisy idp tool.ttx").Activate
Range("E9:E28").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Claims Service Tracker 01.07.2016.xlsm").Activate
Range("L286").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Workbooks.Open Filename:= _
"\\Global.lloydstsb.com\file\D_GIEWFM$\SHARED\Data\Storm idp tool.ttx"
Range("B9:B28").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Claims Service Tracker 01.07.2016.xlsm").Activate
Range("C315").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Storm idp tool.ttx").Activate
Range("C9:C28").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Claims Service Tracker 01.07.2016.xlsm").Activate
Range("G315").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Storm idp tool.ttx").Activate
Windows("Claims Service Tracker 01.07.2016.xlsm").Activate
Workbooks.Open Filename:= _
"\\Global.lloydstsb.com\file\D_GIEWFM$\SHARED\Data\Flood Surge Team idp tool.ttx"
Range("B9:B28").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Claims Service Tracker 01.07.2016.xlsm").Activate
Range("C344").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Flood Surge Team idp tool.ttx").Activate
Range("C9:C28").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Claims Service Tracker 01.07.2016.xlsm").Activate
Range("G344").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Flood Surge Team idp tool.ttx").Activate
Range("D9:D28").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Claims Service Tracker 01.07.2016.xlsm").Activate
Range("J344").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Flood Surge Team idp tool.ttx").Activate
Range("E9:E28").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Claims Service Tracker 01.07.2016.xlsm").Activate
Range("L344").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.ScreenUpdating = False
Apologises if this is something simple for you guys, I'm pretty much self taught with Excel and VBA and this is causing me some serious struggles trying to correct it and get it working properly.
I created a tracker for our area so we could get a detailed break down of whether we are over forecast, what our lost call rate is, the asa and other various factors throughout the day. To check how we are performing against the original forecast an import is having to be run. The import goes to a link and then opens and copies the data in to the spreadsheet. However, on certain computers when it starts to open the link and then the data it just causes Excel to crash and close down.
Not sure whats causing it or why it is happening :banghead::(. Below is the code if anyone would be able to assist that would be great.
Application.ScreenUpdating = False
Range("AE1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Workbooks.Open Filename:= _
"\\Global.lloydstsb.com\file\D_GIEWFM$\SHARED\Data\Redesign Copley.ttx"
Range("B9:B28").Select
Selection.Copy
Windows("Claims Service Tracker 01.07.2016.xlsm").Activate
Range("C83").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Redesign Copley.ttx").Activate
Range("C9:C28").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Claims Service Tracker 01.07.2016.xlsm").Activate
Range("G83").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Redesign Copley.ttx").Activate
Range("D9:D28").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Claims Service Tracker 01.07.2016.xlsm").Activate
Range("J83").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Redesign Copley.ttx").Activate
Range("E9:E28").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Claims Service Tracker 01.07.2016.xlsm").Activate
Range("L83").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Workbooks.Open Filename:= _
"\\Global.lloydstsb.com\file\D_GIEWFM$\SHARED\Data\Redesign NP.ttx"
Range("B9:B28").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Claims Service Tracker 01.07.2016.xlsm").Activate
Range("C112").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Redesign Copley.ttx").Activate
Windows("Redesign NP.ttx").Activate
Range("C9:C28").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Claims Service Tracker 01.07.2016.xlsm").Activate
Range("G112").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Redesign NP.ttx").Activate
Range("D9:D28").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Claims Service Tracker 01.07.2016.xlsm").Activate
Range("J112").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Redesign NP.ttx").Activate
Range("E9:E28").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Claims Service Tracker 01.07.2016.xlsm").Activate
Range("L112").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Workbooks.Open Filename:= _
"\\Global.lloydstsb.com\file\D_GIEWFM$\SHARED\Data\CPT idp tool.ttx"
Range("B9:B28").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Claims Service Tracker 01.07.2016.xlsm").Activate
Range("C141").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("CPT idp tool.ttx").Activate
Range("C9:C28").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Claims Service Tracker 01.07.2016.xlsm").Activate
Range("G141").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("CPT idp tool.ttx").Activate
Range("D9:D28").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Claims Service Tracker 01.07.2016.xlsm").Activate
Range("J141").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("CPT idp tool.ttx").Activate
Range("E9:E28").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Claims Service Tracker 01.07.2016.xlsm").Activate
Range("L141").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Workbooks.Open Filename:= _
"\\Global.lloydstsb.com\file\D_GIEWFM$\SHARED\Data\Claims BAU Run Off idp tool.ttx"
Range("B9:B28").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Claims Service Tracker 01.07.2016.xlsm").Activate
Range("C170").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Claims BAU Run Off idp tool.ttx").Activate
Range("C9:C28").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Claims Service Tracker 01.07.2016.xlsm").Activate
Range("G170").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Claims BAU Run Off idp tool.ttx").Activate
Range("D9:D28").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Claims Service Tracker 01.07.2016.xlsm").Activate
Range("J170").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Claims BAU Run Off idp tool.ttx").Activate
Range("E9:E28").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Claims Service Tracker 01.07.2016.xlsm").Activate
Range("L170").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Workbooks.Open Filename:= _
"\\Global.lloydstsb.com\file\D_GIEWFM$\SHARED\Data\SF&F idp tool.ttx"
Range("B9:B28").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Claims Service Tracker 01.07.2016.xlsm").Activate
Range("C228").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("SF&F idp tool.ttx").Activate
Range("C9:C28").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Claims Service Tracker 01.07.2016.xlsm").Activate
Range("G228").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("SF&F idp tool.ttx").Activate
Range("D9:D28").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Claims Service Tracker 01.07.2016.xlsm").Activate
Range("J228").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("SF&F idp tool.ttx").Activate
Range("E9:E28").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Claims Service Tracker 01.07.2016.xlsm").Activate
Range("L228").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Workbooks.Open Filename:= _
"\\Global.lloydstsb.com\file\D_GIEWFM$\SHARED\Data\FRT idp tool.ttx"
Range("B9:B28").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Claims Service Tracker 01.07.2016.xlsm").Activate
Range("C257").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("FRT idp tool.ttx").Activate
Range("C9:C28").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Claims Service Tracker 01.07.2016.xlsm").Activate
Range("G257").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("FRT idp tool.ttx").Activate
Range("D9:D28").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Claims Service Tracker 01.07.2016.xlsm").Activate
Range("J257").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("FRT idp tool.ttx").Activate
Range("E9:E28").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Claims Service Tracker 01.07.2016.xlsm").Activate
Range("L257").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Workbooks.Open Filename:= _
"\\Global.lloydstsb.com\file\D_GIEWFM$\SHARED\Data\polisy idp tool.ttx"
Range("B9:B28").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Claims Service Tracker 01.07.2016.xlsm").Activate
Range("C286").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("polisy idp tool.ttx").Activate
Range("C9:C28").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Claims Service Tracker 01.07.2016.xlsm").Activate
Range("G286").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("polisy idp tool.ttx").Activate
Range("D9:D28").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Claims Service Tracker 01.07.2016.xlsm").Activate
Range("J286").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("polisy idp tool.ttx").Activate
Range("E9:E28").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Claims Service Tracker 01.07.2016.xlsm").Activate
Range("L286").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Workbooks.Open Filename:= _
"\\Global.lloydstsb.com\file\D_GIEWFM$\SHARED\Data\Storm idp tool.ttx"
Range("B9:B28").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Claims Service Tracker 01.07.2016.xlsm").Activate
Range("C315").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Storm idp tool.ttx").Activate
Range("C9:C28").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Claims Service Tracker 01.07.2016.xlsm").Activate
Range("G315").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Storm idp tool.ttx").Activate
Windows("Claims Service Tracker 01.07.2016.xlsm").Activate
Workbooks.Open Filename:= _
"\\Global.lloydstsb.com\file\D_GIEWFM$\SHARED\Data\Flood Surge Team idp tool.ttx"
Range("B9:B28").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Claims Service Tracker 01.07.2016.xlsm").Activate
Range("C344").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Flood Surge Team idp tool.ttx").Activate
Range("C9:C28").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Claims Service Tracker 01.07.2016.xlsm").Activate
Range("G344").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Flood Surge Team idp tool.ttx").Activate
Range("D9:D28").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Claims Service Tracker 01.07.2016.xlsm").Activate
Range("J344").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Flood Surge Team idp tool.ttx").Activate
Range("E9:E28").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Claims Service Tracker 01.07.2016.xlsm").Activate
Range("L344").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.ScreenUpdating = False
Apologises if this is something simple for you guys, I'm pretty much self taught with Excel and VBA and this is causing me some serious struggles trying to correct it and get it working properly.