SeanJ
08-25-2008, 06:41 AM
Hello guys,
I am trying to do the following:
I have a sheet called Master. Everytime a new sheet is added I need to select "A1:Q9" from the new sheet and display it on the master sheet. Problem is if changes are done on a existing sheet the changes must reflect on the Master sheet. ALso the formatting must copy over from the new sheets to the Master sheet. I have started code below but I am stump. with how to proceed.
ws.Range("A1:Q9").Select
With Selection
.Copy
End With
Set ws = wb.Sheets("Master")
With ws
.Select
LastUsedCell = .Cells(.Rows.Count, "b").End(xlUp).Row
newcellloc = LastUsedCell + 2
End With
ws.Cells(newcellloc, 1).Select
ActiveSheet.Paste
I am trying to do the following:
I have a sheet called Master. Everytime a new sheet is added I need to select "A1:Q9" from the new sheet and display it on the master sheet. Problem is if changes are done on a existing sheet the changes must reflect on the Master sheet. ALso the formatting must copy over from the new sheets to the Master sheet. I have started code below but I am stump. with how to proceed.
ws.Range("A1:Q9").Select
With Selection
.Copy
End With
Set ws = wb.Sheets("Master")
With ws
.Select
LastUsedCell = .Cells(.Rows.Count, "b").End(xlUp).Row
newcellloc = LastUsedCell + 2
End With
ws.Cells(newcellloc, 1).Select
ActiveSheet.Paste