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