Contar Células VBA

[maomelov]

tenho o seguinte codigo para contar as celulas preenchidas na coluna F da folha Carros...

Da-me erro e diz que "Objet variable or with block variable ot set" run time error '91'

Worksheets("Carros").Activate

Set a = Worksheets("Carros").Range("F1")

UltLin = Cells(a.Rows.count, "F").End(xlUp).Row

contav = 0

For celula = a To UltLin

	If (celula.Value <> "") Then
	contav = contav + 1
	End If
Next

[rodrigolima]

Boa tarde maomelov

Tente fazer assim:

Dim a As Worksheet
Dim faixa As Range


'Definir que a é a sheet Carros
Set a = Worksheets("Carros")
a.Activate

'Setar Range para toda a coluna F
Set faixa = a.Range("F:F")

'Coluna 6(F) - Contar linhas
UltLin = Cells(faixa.Rows.Count, 6).End(xlUp).Row

Espero ter ajudado.Sucesso