Run Time Error 9

[Small Paul]

Hi
I have the following section of code within a large macro:

Worksheets("Dubai Data").ActivateActiveCell.Offset(0, 2).Copy
detail = ActiveCell.value


[I]Sheets(detail).Select

[/I]
ActiveCell.Offset(-2, 1).PasteSpecial xlPasteValues
ActiveCell.Font.Bold = True
Range(cells(ActiveCell.row, "C"), cells(ActiveCell.row, "K")).MergeCells = True
Range("C8:K8").HorizontalAlignment = xlCenterAcrossSelection
Worksheets("Dubai Data").Activate
ActiveCell.Offset(0, 13).Select
If Selection.value <> "None" Then
Selection.Copy
ActiveCell.Select
detail = ActiveCell.value

[I]Sheets(detail).Select[/I]

Range("B4").PasteSpecial xlValues

"Sheets Detail" takes you to a specific worksheet. The first instance works above (not the first in the macro) works correctly. For some bizarre reason I am getting a
"Run Time Error 9: Subscript Out Of Range" error on the second case above.
Both instances are pointing to the same worksheet!

Any suggestions as to what I am doing wrong?

Cheers
Small Paul.

 

[mikerickson]

Re: Run Time Error 9 - Makes Absolutely No Sense!!!

I would wonder which cell is active when the error occurred and what it contains. i.e. what the value of detail is when it errors.

 

[Small Paul]

Re: Run Time Error 9 - Makes Absolutely No Sense!!!

Hi Mikerickson
The value is '1' and takes the user to worksheet '1'.
But you have hit the nail on the head - I have now set the cell in column A to activate!
Man, many thanks
Small Paul.