Como copiar uma única célula em várias planilhas no Excel?

Question

Eu tenho cerca de 30 planilhas e preciso colocar meu nome no canto superior esquerdo (célula A1). Existe uma maneira fácil de fazer isso sem ter que escrevê-lo ou colá-lo em todas as planilhas?

    

Answer 1

Selecione todas as planilhas (selecione a primeira planilha, segure Shift, selecione a última planilha)

Digite seu nome na A1

Pressione Enter.

Isso fará isso para as pessoas que não são do código.

    

Answer 2

Isso deve ser feito:

Sub PutMyNameInA1()
    Dim w As Worksheet

    For Each w In ThisWorkbook.Worksheets
        w.Range("A1") = "My Name"
    Next w
End Sub

O código deve ser colocado em um módulo de código padrão. (Alt + F11, Inserir > Módulo, cole isto, mude o nome entre aspas, Corra / F5 para executar)