I have a "greeting" tab where I instruct the user to enable macros to gain access to the workbook.

With macros enabled, I display all sheets and hide the greeting. I'm using a range name "HideActSheet" to store the Active Sheet (index #) and select the previously active sheet after I display all the sheets and hide the greeting. It doesn't matter if I use an index number (numeric) vs. text. I have used range names like this to store values and typically will hide them from the user - historically without problem in Excel 2007. I'm relatively new to Excel 2010 and not sure how to resolve this problem.

The following code is in the This WorkBook VBA Module:

Option Explicit

Private Sub Workbook_Open() 'ONE PROBLEM LINE OF CODE IN THIS PROCEDURE - SEE BELOW.
Dim i01 As Integer, ws As Worksheet
Range("A1").Select
Application.ScreenUpdating = False
For Each ws In ThisWorkbook.Worksheets
ws.Visible = xlSheetVisible
Next ws
ActiveWindow.DisplayWorkbookTabs = True
Sheet1.Visible = xlSheetVeryHidden 'This line hides the Greeting tab
i01 = Range("HideActSheet").Value '<<<<----This line generates the Method 'Range' of object '_Global' failed error
Sheets(i01).Select
Application.ScreenUpdating = True
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 'NO PROBLEMS WITH THIS PROCEDURE.
Dim i01 As Integer, ws As Worksheet
i01 = ActiveWorkbook.ActiveSheet.Index
Names.Add Name:="HideActSheet", RefersToR1C1:="=" & i01, Visible:=True
Sheet1.Visible = xlSheetVisible
Sheet1.Select
Range("A6").Select
Sheets(i01).Select
ActiveWindow.DisplayWorkbookTabs = False
Application.ScreenUpdating = False
For Each ws In ThisWorkbook.Worksheets
If ws.CodeName <> "Sheet1" Then
ws.Visible = xlSheetVeryHidden
End If
Next ws
End Sub

Private Sub Workbook_AfterSave(ByVal Success As Boolean) 'ONE PROBLEM LINE OF CODE IN THIS PROCEDURE - SEE BELOW
Dim i01 As Integer, ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.CodeName <> "Sheet1" Then
ws.Visible = xlSheetVisible
Else
ws.Activate
Range("A6").Select
End If
Next ws
ActiveWorkbook.Sheets(1).Visible = xlSheetVeryHidden
ActiveWindow.DisplayWorkbookTabs = True
Application.ScreenUpdating = True
i01 = Range("HideActSheet").Value '<<<<----This line generates the Method 'Range' of object '_Global' failed error
Sheets(i01).Select
End Sub