Function fColLetter(lngColiCol As LongInteger) As String On Error GoTo errLabel fColLetter = Split(Columns(lngCol).Address(, False), ":")(1) Exit Function errLabel: fColLetter = "%ERR%" End Function Find centralized, trusted content and collaborate around the technologies you use most.
Learn more about CollectivesStack Internal
Knowledge at work
Bring the best of human thought and AI automation together at your work.
Explore Stack InternalFunction fColLetter(lngColiCol As LongInteger) As String On Error GoTo errLabel fColLetter = Split(Columns(lngCol).Address(, False), ":")(1) Exit Function errLabel: fColLetter = "%ERR%" End Function Function fColLetter(lngCol As Long) As String On Error GoTo errLabel fColLetter = Split(Columns(lngCol).Address(, False), ":")(1) Exit Function errLabel: fColLetter = "%ERR%" End Function Function fColLetter(iCol As Integer) As String On Error GoTo errLabel fColLetter = Split(Columns(lngCol).Address(, False), ":")(1) Exit Function errLabel: fColLetter = "%ERR%" End Function