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

Function EE_RangeChange(RangeToChange As range, StartRowOffset As Integer, StartColOffset As Integer, _
    EndRowOffset As Integer, EndColOffset As Integer, Optional MaxRows As Long, Optional MaxCols As Long) As range
' creates a new range based on resizing the existing range
' so If we add StartRowOffset =1, we move the star

Sub EE_ExtractRow(Optional SourceSht As Worksheet, Optional TargetSht As String, Optional RowToExtract As Long, Optional wb As Workbook, Optional blnTranspose As Boolean = True)
' takes the selected cell row as default
' copies and paste transpose onto a new sheet
' copies row and header onto sheet specified
'http://excelexperts.com/xla-routines-eeExtractRow    for updates on this sub

    If SourceSht Is Nothing Then
 

Function EE_FirstBusinessDayOfMonth(dt As Date, rngHolidays As range) As Date
'- as above but rolls to the next business day if the first bus day is a hol
'- also takes a range with the holiday calendar
'http://excelexperts.com/xla-routines-eeFirstBusinessDayOfMonth    for updates on this function

    If EE_IsBusinessDay(rngHolidays, EE_FirstDayOfMonth(dt)) Then
        EE_FirstBusinessDayOfMonth = EE_FirstDayOfMonth(dt)
    Else
        EE_FirstBusinessDayOfMonth = 

Sub EE_ImportFromFile(wbkFullPath As String, strSheet As String, rngTarget As range)
    Dim wbkSrc      As Workbook
    Dim wksSrc      As Worksheet
 
'http://excelexperts.com/xla-routines-eeImportFromFile    for updates on this function
    If EE_FileExists(wbkFullPath) = False Then Exit Sub
 
    Set wbkSrc = Workbooks.Open(wbkFullPath)
    Set wksSrc = wbkSrc.Worksheets(strSheet)
 
    wksSrc.UsedRange.Copy
    rngTarget.PasteSpecial xlPasteValues
    rngTarget.PasteSpecial xlPasteFormats
 
    Application.

Function EE_FileExists(strFile As String) As Boolean
'http://excelexperts.com/xla-routines-eeFileExists    for updates on this function
    EE_FileExists = CreateObject("Scripting.FileSystemObject").FileExists(strFile)
End Function

Function EE_IsArray(varArgument As Variant) As Boolean
'- takes variant
'- returns whether it really is an array. (By checking whether theArray(1,1) exists)
'http://excelexperts.com/xla-routines-eeIsArray    for updates on this function

On Error GoTo IsNotArray
    EE_IsArray = True
    Dim temp
    temp = varArgument(1, 1)
    Exit Function
IsNotArray:
    EE_IsArray = False
End Function

Sub EE_ReplaceErrors(rng As range)
'Takes a range.. Replaces any cells containing errors with ""
'http://excelexperts.com/xla-routines-eeReplaceErrors    for updates on this sub routine

    On Error Resume Next
        rng.SpecialCells(xlCellTypeFormulas, 16).value = ""
    Err.Clear: On Error GoTo 0: On Error GoTo -1
End Sub

Sub EE_SaveIfMe(strUserName As String)
'Takes a username as string
'Looks to see if application.username or ee_getusername is the string..
'If yes, save the workbook.

'http://excelexperts.com/xla-routines-eeSaveIfMe    for updates on this sub routine

    Select Case strUserName
    Case Application.UserName, EE_GetUsername
        ThisWorkbook.Save
    End Select
End Sub

Function EE_OpenFromTemp(strFullFilePath As String) As Boolean
'Takes a full file name and path
'Opens the same file but from temp path
'Returns false if unsuccessful
'http://excelexperts.com/xla-routines-eeOpenFromTemp    for updates on this function

    Call EE_CopyFile(strFullFilePath, Environ("Temp"))
    On Error Resume Next
        Workbooks.Open (Environ("Temp") & Application.PathSeparator & 

Function EE_CopyToTempIfDifferent(strFullFilePath As String) As Boolean
'Takes a full file name and path
'Copies it to temp dir (deleting existing file if it exists) Returns false if unsuccessful
'http://excelexperts.com/xla-routines-eeCopyToTempIfDifferent    for updates on this function

    On Error Resume Next
        Kill Environ("Temp") & Application.PathSeparator & EE_FileNameFromFilePath(strFullFilePath)
        Call EE_Copy