Sub findrange()
Dim rangex As Range
Set rangex = ThisWorkbook.ActiveSheet.UsedRange
rangex.Select
End Sub
this is frustrating, cannot find a simple code to establish this range.
Range("A1:" & Cells(Cells.Find(What:="*", SearchOrder:=xlRows, _
SearchDirection:=xlPrevious, LookIn:=xlFormulas).Row, _
Cells.Find(What:="*", SearchOrder:=xlByColumns, _
SearchDirection:=xlPrevious, LookIn:=xlFormulas).Column).Address).Select