Ugh,
I rely on the bit of code below all the time to find the last cell but the problem is, my company has some people using Excel & some using OpenOffice Calc.
1 Dim LastRow As Long, i As Long
2 LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
3 For...