Last Cell in Column Excel 2007 - Speed Up? 1

[plip1978]

I've always used the following code to find the last cell in a column:

Public Function LastCellInColumn(sheetOfInterest As String) As Integer

Sheets(sheetOfInterest).Select
Range("A65536").End(xlUp).Select
LastCellInColumn = ActiveCell.Row

End Function

Does anyone have any suggestions on how to speed this up? Or any ideas of a different way to do that that might be faster? I've also moved to Office 2007.

Thank you in advance!

 

[SkipVought]

hi,

NO SELECT!!!

Also make it GENERAL to other versions with more rows than 65536, and any row greather than 32767 will error as an Integer data type

Public Function LastCellInColumn(sheetOfInterest As String) As [b]LONG[/b]

   with Sheets(sheetOfInterest)
      LastCellInColumn = .Cells(.rows.count, 1).End(xlUp).row
   end with

End Function

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]