Você está vendo a versão anterior da nova experiência da Alura que estamos preparando para você. Em breve, ela ganha uma identidade visual novinha totalmente pensada em potencializar seus estudos!
Sub Tot_Plano ()
Dim totplano As Integer
Range("c6").Select
Do Until ActiveCell = ""
If UCase(ActiveCell) = UCase("Nacional") Then
totplano = totplano + 1
End If
ActiveCell.Offset(1, 0).Select
Loop
MsgBox "Total de vendas do plano Nacional: " & totPlano
End Sub
Oi Barbara tudo bem?
Está correto, continue assim e bons estudos!!!