Flávio Ibelli

Public Sub Worksheet_Change(ByVal Target As Excel.Range) Static valorcel As Integer Application.EnableEvents = False If Target.Address = "$A$1" Then valorcel = Target.Value + valorcel If Target.Value = 0 Then valorcel = 0 Target.Value = valorcel End If Application.EnableEvents = True End Sub Ola, alguem pode me ajudar? Preciso alterar o código VBA acima para que ele some a coluna inteira, não só na celula A1. Como ele funciona: dado um numero na celula A1, quando digito outro numero nessa mesma célula, ele faz a soma automaticamente. Gostaria de alterar para a coluna toda. Sou leigo em VBA e gostaria de entender o código para fazer as alterações em minha planilha. Obrigado