Copy a range of data to all sheets of the workbook

Question

I have a workbook that contains a database .

On that database there is a certain row of data that i would like to copy and paste to all sheets.

The copying ra

Answer 1

do you need a Loop for all worksheets ?

    Dim ws as Worksheet
    For Each ws in ActiveWorkbook.Worksheets
        If Not ws.Name = "*Name of the database workbook *" Then    
            Call ws.Range("B1:N1").PasteSpecial(xlPasteAll, xlPasteSpecialOperationNone)
        End If
    Next