get column letter

[gibbo1715]

Can anyone tell me if there is an easier way to get the column letter of the active cell than the method im using below

(Row is there just incase this method is of use to others, im only interested in the easiest method of getting the column letter)

cheers

gibbo

Sub Location()
Col = Split(ActiveCell(1).Address(1, 0), "$")(0)
'Row = Split(ActiveCell(1).Address(1, 0), "$")(1)
MsgBox Col' & Row
End Sub