Run-time error 5

[Red over White]

I am getting the above message on the line that starts 'sheets', any help would be appreciated (using Office:Mac 2011)

Option Explicit

Sub GraphB() '

Dim i As Integer
Dim ColumnVar As Variant

ColumnVar = Array("B", "C", "D", "E", "F", "G", "J", "K", "L", "M", "N", "O", "P", "Q", "R")

For i = 0 To 14
Sheets("Graph B").Range(Cells(ColumnVar(i)), 65536).End(xlUp).Select
Selection.Copy
ActiveCell.Offset(1, 0).Select
ActiveCell.PasteSpecial Paste:=xlPasteFormulas
Next i

End Sub

 

[VoG]

Should it be?

Sheets("Graph B").select
Cells(Rows.Count, ColumnVar(i)).End(xlUp).Select

 

[Red over White]

Yes - that seems to have worked Thank you