Function EE_CurrentRegion(Optional Cell As range) As range
' returns the Currentregion
' defaults to activecell
'http://excelexperts.com/xla-routines-eeCurrentregion    for updates on this function
    If Cell Is Nothing Then
        Set Cell = ActiveCell
    End If
 
    Set EE_CurrentRegion = Cell.CurrentRegion
End Function

Function EE_UsedRange(Optional ws As Worksheet) As range
' returns the usedrange
' defaults to activeworksheet
'http://excelexperts.com/xla-routines-eeUsedRange    for updates on this function
    If ws Is Nothing Then
        Set ws = ActiveSheet
    End If
 
    Set EE_UsedRange = ws.UsedRange
 
End Function

Sub EE_ClearRows(FromRow As Long, Optional ToRow As Long)
' Clears all the data from the rows
'http://excelexperts.com/xla-routines-eeClearRows    for updates on this routine
    If ToRow = 0 Then
        ToRow = FromRow
    End If
 
    range(Cells(FromRow, 1), Cells(ToRow, 1)).EntireRow.ClearContents
End Sub

Sub EE_DeleteColumns(FromCol As Variant, Optional ToCol As Variant)
' - FromCol and ToCol can either be a column, a letter, a number, or a heading
'http://excelexperts.com/xla-routines-eeDeleteColumns    for updates on this routine

    If Not IsMissing(ToCol) Then
        If ToCol = "" Then
            ToCol = FromCol
        End If
    Else
        ToCol = FromCol
    End If
 
    If VarType(ToCol) = vbString Then
        ToCol = CLng(range(ToCol & "1").Column)
    End If
    If VarType(FromCol) = vbString Then
        FromCol = CL

Sub EE_InsertColumns(FromCol As Variant, Optional ToCol As Variant)
' - FromCol and ToCol can either be a column, a letter, a number, or a heading
'http://excelexperts.com/xla-routines-eeInsertColumns    for updates on this routine

    If Not IsMissing(ToCol) Then
        If ToCol = "" Then
            ToCol = FromCol
        End If
    Else
        ToCol = FromCol
    End If
 
    If VarType(ToCol) = vbString Then
        ToCol = CLng(range(ToCol & "1").Column)
    End If
    If VarType(FromCol) = vbString Then
        FromCol = CL

Sub EE_ClearColumns(FromCol As Variant, Optional ToCol As Variant)
' - FromCol and ToCol can either be a column, a letter, a number, or a heading
' clears all data from the col
'http://excelexperts.com/xla-routines-eeClearColumns    for updates on this routine
    If Not IsMissing(ToCol) Then
        If ToCol = "" Then
            ToCol = FromCol
        End If
    Else
        ToCol = FromCol
    End If
 
    If VarType(ToCol) = vbString Then
        ToCol = CLng(range(ToCol & "1").Column)
    End If
    I

Sub EE_ClearColumnsData(FromCol As Variant, Optional ToCol As Variant)
' http://excelexperts.com/xla-routines-eeClearColumnsData for updates on this routine

' - FromCol and ToCol can either be a column, a letter, a number, or a heading
' calls EE_ClearColumn and puts headings back

' Example
' Age
' 1
' 40

' =>
' Age

' i.e the data is cleared, heading remains
'http://excelexperts.com/xla-routines-eeClearColumnsData    for updates on this routine
    
    If Not IsMissing(ToCol) Then
 

Sub EE_CopyAndAddToTheEnd(RangeToCopy As range, DestinationSheet As Worksheet, DestinationSheetPasteRow As Long, DestinationSheetPasteColHeader As String)
    'Basically the same as EE_copy, but Takes a destination sheet
    'and appends data to the end
'http://excelexperts.com/xla-routines-eeCopyAndAddToTheEnd    for updates on this routine
    Call EE_Copy(RangeToCopy, DestinationSheet.Cells(DestinationSheetPasteRow, EE_Ta

Function EE_TableGetColumnDataAndHeading(Heading As String) As range
    ' returns the data and header from a header
'http://excelexperts.com/xla-routines-eeTableGetColumnDataAndHeading    for updates on this function
    Set EE_TableGetColumnDataAndHeading = EE_RangeChange(EE_TableGetColumnData(Heading), -1, 0, 0, 0)
End Function

Function EE_TableGetColumnData(Heading As String) As range
    ' returns the data from a header
'http://excelexperts.com/xla-routines-eeTableGetColumnData    for updates on this function
    Set EE_TableGetColumnData = Columns(EE_TableHeadingCol(Heading, ActiveSheet.UsedRange))
    Set EE_TableGetColumnData = Intersect(EE_TableGetColumnData, ActiveSheet.UsedRange)
    Set EE_TableGetColumnData = EE_RangeChange(EE_TableGetColumnData, 1, 0, 0, 0)
End Function

Function EE_TableGetColumn(Heading As String, Optional Table As range) As range
'http://excelexperts.com/xla-routines-eeTableGetColumn  for updates on this routine
    ' returns the whole column from a header
    If Table Is Nothing Then
        Set Table = ActiveSheet.UsedRange
    End If
 
    Set EE_TableGetColumn = Columns(EE_TableHeadingCol(Heading, Table))
End Function
</vb

Public Function EE_SheetName(Optional ws As Worksheet)
' returns the sheet name
' can be used on a worksheet as a function or called
'http://excelexperts.com/xla-routines-eeSheetName    for updates on this function

    If ws Is Nothing Then
        EE_SheetName = ActiveSheet.Cells(1).Parent.Name
    Else
        EE_SheetName = ws.Name
    End If
 
End Function

Public Function EE_FileFolderExists(strFullPath As String) As Boolean
'http://excelexperts.com/xla-routines-eeFileFolderExists    for updates on this function

    On Error GoTo EarlyExit
    If Not Dir(strFullPath, vbDirectory) = vbNullString Then EE_FileFolderExists = True
    Err.Clear: On Error GoTo 0: On Error GoTo -1
EarlyExit:
    On Error GoTo 0
End Function