ReturnName Function ReturnName(ByVal num As Integer) As String ReturnName = Split(Cells(, num).Address, "$")(1) End Function Share this:Click to share on Twitter (Opens in new window)Click to share on Facebook (Opens in new window) Related DeleteInitialColumnsFromWorksheet