Ryu
11-17-2008, 05:57 AM
Hi people,
What I want to do is really simple but annoying at the same time, was hoping someone could offer me some help please. What I have is loads of worksheets and I want to copy cells A3 to K6 from worksheet 1 and paste them in all of the worksheets in the same cells.
So far I have the following coding:
Public Sub CopyPaste()
Dim wksh As Worksheet
For Each wksh In ActiveWorkbook.Worksheets
wksh.Range("A3:K6").Copy Destination:=wksh.Range("A3:K6")
Next
End Sub
The only problem is that what I want is the allignment of the cells to be exactly the same as they are in worksheets 1 in all of the worksheets - so basically once the data has been copied over I want the column size to remain the same.
Thanks
What I want to do is really simple but annoying at the same time, was hoping someone could offer me some help please. What I have is loads of worksheets and I want to copy cells A3 to K6 from worksheet 1 and paste them in all of the worksheets in the same cells.
So far I have the following coding:
Public Sub CopyPaste()
Dim wksh As Worksheet
For Each wksh In ActiveWorkbook.Worksheets
wksh.Range("A3:K6").Copy Destination:=wksh.Range("A3:K6")
Next
End Sub
The only problem is that what I want is the allignment of the cells to be exactly the same as they are in worksheets 1 in all of the worksheets - so basically once the data has been copied over I want the column size to remain the same.
Thanks