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
