Find the last used column

[crmpicco]

Sub LastOne() 
    Dim Last As Range 
    Set Last = [A1].SpecialCells(xlCellTypeLastCell) 
    MsgBox "Column " & Last.Column & " is the last column" '< msgbox example
    Columns(Last.Column).Select '< select example
End Sub

that seems to be the same as:

ActiveSheet.UsedRange.Rows.Count