Function SelectHiddenVariablesHeader()
    Range("HiddenVariableHeader").Select
End Function


Function ReturnNextCellInRange(Optional ByVal i As Integer) As Range
    Dim x As String
    If (IsMissing(i)) Then
    ActiveSheet.Name = "HiddenVariables"
    MsgBox "the current sheet is " & ActiveSheet.Name
    Else
    Range("HiddenVariableHeader").Offset(i, 0).Select
    '' do other stuff
    End If
End Function

Private Sub HiddenVariablesData()
    SelectHiddenVariablesHeader
    ReturnNextCellInRange 10
End Sub

Private Function SetHiddenDataRange() As String
    Dim startData As Range
    Dim totalData As Range
    ''SelectHiddenVariablesHeader
    ''Set startData = ActiveCell.Offset(1, 0)
    ActiveSheet.Range(Cells(3, 2), Cells(1000, 2).End(xlUp)).Select
    SetHiddenDataRange = Selection.Address
End Function

Function AddHiddenDataRangeToNamedRanges()
    x = "=" & SetHiddenDataRange
    ActiveWorkbook.Names.Add Name:="HiddenVariablesData", RefersTo:=x
End Function

Function ForEachHiddenDataPutInBook()
    SelectHeader
    numOfNames = NamesInHiddenDataRange
    For i = 1 To numOfNames
        ActiveWorkbook.ActiveSheet.Range("HiddenVariableHeader").Offset(i, 0).Select
        xx = Range("HiddenVariableHeader").Offset(i, 0).Value
        vv = Range("HiddenVariableHeader").Offset(i, 1).Value

    Next i
End Function

Private Function NamesInHiddenDataRange() As Integer
    x = SetHiddenDataRange
    w = Selection.Rows.Count
    NamesInHiddenDataRange = w
End Function

Private Function SelectHeader() As String
    b = ActiveWorkbook.Sheets("HiddenVariables").Range("HiddenVariableHeader").Select
    SelectHeader = b
End Function