Get the worksheet tag name and put into a column

[techissue2008]

Hi,

I re-named the worksheet tags 2007/08, 2006/07 instead of Sheet 1, Sheet 2.

In Sheet 3 (A:C), it will get all data from '2007/08' sheet by using .Range.

I want to show the tag name 2007/08 in Sheet 3 (D:D) upon the end of the range.

i.e.
2007/08
2007/08
2007/08
2007/08
2007/08
2007/08
.....

 

[Richard Schollar]

Is this a VBA question? If so, are you copying the data across (seems likely) or would a dynamic link (ie a formula) suit you better?

Dim rng As Range
 
With Sheet1
  Set rng = .Range("A1:C" & .Cells(.Rows.Count,"A").End(xlUp).Row)
End With
rng.Copy
Sheet2.Range("A1").PasteSpecial xlPasteValues
Sheet2.Range("D1:D" & rng.Rows.Count).Value = Sheet1.Name

 

[jindon]

With Sheets("sheet3").Range("a1").CurrentRegion
    .Resize(,1).Offset(,2).Value = Sheets(1).Name
End With

 

[techissue2008]

Thanks for help