Anderson, se olhar na ajuda do VBA encontrará alguns exemplos referente a Columns.Count, a maioria utiliza o Selection, mas é o caso de realizarmos algumas adaptações, conforme a rotina abaixo.

Dim ultColunaOrig As Integer
Dim ultLinhaOrig As Integer

Sub ContaLinsCols()
'Dim ultColunaOrig As Integer
'Dim ultLinhaOrig As Integer
    With Plan1
        ultLinhaOrig = .UsedRange.Rows.Count
        MsgBox ultLinhaOrig
        
        ultColunaOrig = .UsedRange.Columns.Count
        MsgBox ultColunaOrig
        
    End With

End Sub

Quanto a "Armazenar numa variavel para que possa ser usada em outro procedimento", acredito que já deve ter percebido em outras rotinas enviadas, onde são definidas e declaradas algumas variáveis.

Na rotina acima por exemplo, veja que deixei propositalmente duas declarações repetidas :
Dim ultColunaOrig As Integer
Dim ultLinhaOrig As Integer
As que estão dentro da rotina, serão utilizadas somente na rotina, e as que estão fora da rotina ficarão armazenadas para serem utilizadas fora da rotina, mas dependendo de onde vamos utiliza-las precisamos defini-las como Public, Private, Global e outras. Para entender um pouco mais sobre Variáveis, aconselho dar uma lida neste ótimo tutorial gratuito do JulioBattisti, vale a pena perder alguns minutos de leitura.
Lição 11: Escopo de Variáveis e Variáveis do tipo Array
http://www.juliobattisti.com.br/cursos/ ... icao11.asp

abraços

Nossa até me esqueci de responder.

Desculpai Mauro...

Fucionou direitinho.

Usei o proprio codigo
ultColunaOrig = .UsedRange.Columns.Count
Como variavel para definir o numero de colunas de um listbox de um topico que vc me respondeu ficou +/- assim
.ColumnCount = ultColunaOrig

VLW