Parsing $A$1

[JohnJay]

Is there an easier way to get the A & 1 from an address of an active cell, without parsing it? Or is there a way to check if the active cell in a column is the next cell below the last cell with data in it?

Thanks

Is there an easier way to get the A & 1 from an address of an active cell, without parsing it? Or is there a way to check if the active cell in a column is the next cell below the last cell with data in it?

You can easily get the row and column number (not the letter) by saying something like:-

ActiveCell.Row
ActiveCell.Column

to check whether the activecell is in the position you state try this:-

Sub IsActiveCellLastCell()
If Cells(65536, ActiveCell.Column).End(xlUp).Row = ActiveCell.Row - 1 Then
    MsgBox "Active cell is in next available cell in column"
Else
    MsgBox "Active cell is not in next available cell in column"
End If
End Sub

HTH,
D

[Dave Hawley]

Hi John

You could get the Column letter like:

Dim strCol As String
strCol = ActiveCell.EntireColumn.Address(ColumnAbsolute:=False)
strCol = Left(strCol, InStr(1, strCol, ":", vbTextCompare) - 1)
MsgBox strCol

[JohnJay]

Dave & Anonymous,

Thanks for your tips. After looking at them, they cleared up alot.

Thanks again,

John