Option Explicit

ReturnName

—

by

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

Comments

Leave a Reply

Your email address will not be published. Required fields are marked *