Uma função simples para retornar as letras que correspondem a um número retornando a coluna.
Function ColumnLettersFromRange (rInput As Range) As String
' © 2007-20 A&A - In Any Place®, except where noted, all rights reserved.
' THIS CODE AND INFORMATION ARE PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT
' LIMITED TO THE IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
' Feel free to use the code as you wish but kindly keep this header section intact.
' Copyright© A&A - In Any Place®, all Rights Reserved. ' Author: André Bernardes
' Contact: andreluizbernardess@gmail.com | https://goo.gl/EUMbSe/
' Description: Retorna a letra da coluna de um Range
Let ColumnLettersFromRange = Split(rInput.Address, "$")(1)
End Function
⬛◼◾▪ CONTATO ▪◾◼⬛