Por exemplo, no meu código atual : Sub Valor80() For Each cell In Selection.Cells ActiveCell.FormulaR1C1 = "80" Next End Sub Mesmo que eu selecione por exemplo várias celulas, ele somente vai fazer a função para uma célula selecionada. Como eu faço para que ele exerça o que eu estou pedindo para fazer, para todas as celulas selecionadas e não apenas uma?