help needed on run time error 9 subscript out of range

[Excelworld]

Hi,

I'm getting the above error when running the VB code - basically I want the code to check which active workbook is open before it pastes the data in. Both workbooks are set up the same but with different names and the code runs from a separate workbook - I'm using excel 2010

Sub sheetup()
'
' Copies the details of the candidate onto the main management tracker
'
    Range("AC71:AJ71").Select
    Selection.Copy
  Windows("work1.xls").Activate
  ActiveWorkbook.Sheets("CANDIDATES").Activate
  On Error Resume Next
  Windows("work2.xls").Activate
  ActiveWorkbook.Sheets("CANDIDATES").Activate
    Range("C" & Cells.Rows.Count).End(xlUp).Offset(1, 0).Select
    Dim LastRow As Long
    LastRow = Sheets("Candidates").Range("C" & Cells.Rows.Count).End(xlUp).Offset(1).Row
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("C" & Cells.Rows.Count).End(xlUp).Offset(1, 0).Select
End Sub

any ideas?

 

[Joe4]

Try stepping into your code and proceeding through it line-by-line using the F8 key until you find where the error occurs.
If you resize your VB window down to about one-quarter the size of the screen, you will be able to see exactly what it is doing behind the scenes and should be able to see why the error is occurring.