Hi Friends

I am using the below code to identify column number. However, it comes up with number and I want that to be in Alphabet (like column P etc).

Can you please help how should I amend the below code?

Sub Column()

Dim FindCol As Range

Set FindCol = Cells.Find(What:="May 16", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)

MsgBox FindCol.Column

End Sub

Thanks in advance