Thanks for your reply...
Had to modify a bit because the workbook is password protected so I wrote:

Sub Test()
Dim I As Long
ActiveSheet.Unprotect Password="DBI"
For I = 2 To ThisWorkbook.Worksheets.Count
Worksheets(1).Range("A1:A3").Copy Worksheets(I).Range("A1:A3")
Next
ActiveSheet.Protect Password="DBI"
End Sub

This seems to work, but cells A1 to A3 are blocked too.
There must be a way to unblock them, perform the copying and block them again.
Alas, I don't know how.
Maybe you do.
Thanks in advance
JP, Belgium


"Ron de Bruin" wrote in message ...
You can use this macro

Sub Test()
Dim I As Long
For I = 2 To ThisWorkbook.Worksheets.Count
Worksheets(1).Range("A1:A3").Copy Worksheets(I).Range("A1")
Next
End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Jean-Paul De Winter" wrote in message ...
Hi,
I would like to have a puchbutton on the first page of my worksheet that,
when puched, copies cells A1,A2 and A3 to evey page of the worksheet...
Can somebody explain how?
Thanks

Use this

protect and unprotect in the loop

Sub Test()
Dim I As Long
For I = 2 To ThisWorkbook.Worksheets.Count
Worksheets(I).Unprotect Password = "DBI"
Worksheets(1).Range("A1:A3").Copy Worksheets(I).Range("A1:A3")
Worksheets(I).Protect Password = "DBI"
Next
End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Jean-Paul De Winter" wrote in message om...
Thanks for your reply...
Had to modify a bit because the workbook is password protected so I wrote:

Sub Test()
Dim I As Long
ActiveSheet.Unprotect Password="DBI"
For I = 2 To ThisWorkbook.Worksheets.Count
Worksheets(1).Range("A1:A3").Copy Worksheets(I).Range("A1:A3")
Next
ActiveSheet.Protect Password="DBI"
End Sub

This seems to work, but cells A1 to A3 are blocked too.
There must be a way to unblock them, perform the copying and block them again.
Alas, I don't know how.
Maybe you do.
Thanks in advance
JP, Belgium


"Ron de Bruin" wrote in message ...
You can use this macro

Sub Test()
Dim I As Long
For I = 2 To ThisWorkbook.Worksheets.Count
Worksheets(1).Range("A1:A3").Copy Worksheets(I).Range("A1")
Next
End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Jean-Paul De Winter" wrote in message ...
Hi,
I would like to have a puchbutton on the first page of my worksheet that,
when puched, copies cells A1,A2 and A3 to evey page of the worksheet...
Can somebody explain how?
Thanks