Hi Julie,
I'm not sure if it is the proper way, but I would get the selected range the following way:
Dim ExcRng As Excel.Range
' This part checks if the application's selected range is inside the list's data range. ExcRng = Globals.ThisWorkbook.Application.Intersect(Globals.ThisWorkbook.Application.ActiveCell, Globals.Sheet1.ListObject.DataBodyRange)
' If the selected range is inside the list, use it! If Not (ExcRng Is Nothing) Then ExcRng = Globals.ThisWorkbook.Application.ActiveCell ' Now you can use ExcRng as it holds the selected range!
End If
Please see if it works! ;)
Darsel Engineering |