hi

it errors on the following line

compile error:
syntax error

Range(Range("A3").End(xlDown),Range("A3").End(xlTo Right).Copy



"AKphidelt" wrote:

Alright, first off, make sure the sheet you want the data to be pasted to is
the first tab in the workbook. Then make sure that Range("A3") in that
worksheet has a value in it and a value below it.

If that doesn't work then click on the module and press F8. Keep pressing F8
until the error appears and let me know where the error came up.

"LITTLE PETE" wrote:

not that hot VBA - when i pasted this into the module section a syntax error
came up?

"AKphidelt" wrote:

Do you know VBA? Because you can use something like this...

Sub Consol()

For i = 2 to Sheets.Count

Sheets(i).Activate
Range(Range("A3").End(xlDown),Range("A3").End(xlTo Right).Copy
Sheets(1).Activate
ActiveSheet.Range("A3").End(xlDown).Offset(1,0).Pa steSpecial

Next i

End Sub

"LITTLE PETE" wrote:

i have several tabs with various projects being tracked against them. each
week i need to sum up what each of the projects are doing.

so each project (tab) is made up into 5 components. an example is
first tab
Tab name "Pinner"
Data set it between A3 and M6.

second tab
Tab name "Ruislip"
Data set it between A3 and M6.

I want to somehow quickly bring these data sets together onto the one tab
but also include the tab name some where, i.e have a line between them.

Any help would be excellent