ReturnName

Function ReturnName(ByVal num As Integer) As String
  ReturnName = Split(Cells(, num).Address, "$")(1)
End Function