I Hope this is what you were looking forActiveSheet.Columns("A").SpecialCells(xlLastCell).SelectMsgBox ActiveCell.Value