Hi, Commandor
Not sure about how it will be work for you
At a first glance seems to be worked as I want
Option Explicit
'' ~~~~~~~~~~~~~~~~''
Function FindLastRow()
Dim LastRow As Range
With ActiveSheet
Set LastRow = .Cells.SpecialCells(xlCellTypeLastCell)
LastRow.Activate
End With
FindLastRow = LastRow.Row
End Function
'' ~~~~~~~~~~~~~~~~''
Function FindLastColumn() As Long
Dim LastColumn As Range
With ActiveSheet
Set LastColumn = .Cells.SpecialCells(xlCellTypeLastCell)
LastColumn.Activate
End With
FindLastColumn = LastColumn.Column
End Function
'' ~~~~~~~~~~~~~~~~''
Sub FindLastCell()
Dim LastCell As Range
With ActiveSheet
Set LastCell = .Cells(FindLastRow, FindLastColumn)
End With
LastCell.Activate
MsgBox "Last Cell Address: " & vbCr & LastCell.Address
End Sub
Tested on Excel2003 only
Hth
~'J'~