Hi Fred

You must use a event for this in the sheet module

Try this

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column 26 Then
Range("A1").Value = Left(Cells(Target.Row, Target.Column).Address(False, False), 2)
Else
Range("A1").Value = Left(Cells(Target.Row, Target.Column).Address(False, False), 1)
End If
End Sub



--
Regards Ron de Bruin
http://www.rondebruin.nl


"Fred" wrote in message ...
Hello,
Does anyone know how to extract only the Column Name of an active cell in
another cell. e.g. If active cell is D4 then I want the "D" to be extract and
displayed in another cell say A1. Let me know.

Regards,
Fred