macro needed to Copy/paste single cell info to all worksheets

[Ribbon Guy]

Novice needs help creating a macro that that will copy the contents of cell A1 on the first worksheet in a workbook on to all the worksheets in the workbook.

Example:
I want to type in a number to cell A1 hit a macro button and have the number populate cell A1 on all the sheets in the workbook.

Thank you in advance for your time.

 

[jeffreybrown]

Hello & Welcome to the Board,

How about...

Sub CopyA1()
    Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets
        If ws.Name <> "Sheet1" Then
            Sheets("Sheet1").Range("A1").Copy ws.Range("A1")
        End If
    Next ws
End Sub

 

[Ribbon Guy]

Thank you for the prompt reply. Is there a wild card option for the first sheet name? ie: the first sheet is not always the same name.

Thanks!

 

[Boller]

Sub CopyA1()
    Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets
            Worksheets(1).Range("A1").Copy ws.Range("A1")
    Next ws
End Sub

 

[Ribbon Guy]

Thank you... Works like a charm