Solved: Sub to Go Back to Stored Range

[MachaMacha]

I am using the Store Sub to store the sheet index, and cell and row of a cell.

Then I want to go back to that stored range using the goback Sub, however I keep getting the error, Subscript out of Range.

[VBA]Sub store()
Dim Sheetnumber As Integer
Dim columnj As Integer
Dim rowi As Integer

Sheetnumber = ActiveSheet.Index
columnj = ActiveCell.Column
rowi = ActiveCell.Row


End Sub
Sub goback()
Sheets(Sheetnumber).Select
Cells(rowi, columnj).Select
End Sub[/VBA]

[Bob Phillips]

[vba]

Public Sheetnumber As Long
Public columnj As Long
Public rowi As Long

Sub store()

Sheetnumber = ActiveSheet.Index
columnj = ActiveCell.Column
rowi = ActiveCell.Row


End Sub
Sub goback()
Sheets(Sheetnumber).Select
Cells(rowi, columnj).Select
End Sub
[/vba]

[MachaMacha]

Thanks!