Rocky.Paredes
New Member
Hi - I really need some help.
I am trying to develop a macro that will:
listing all names of worksheets in a workbook on a separate worksheet
and list the the value of cell T6 of each worksheet.
The macro below will list the sheet names on a separate workbook but how do I get the contents of cell T6 of each worksheet to appear next to the worksheet name?
You're welcome to disregard the macro below and provide your own.
I really appreciate your help! Thank you.
Sub ListWorkSheetNames()
Dim Sheetnames
Sheetnames = Sheets.Count
Sheets.Add
ActiveSheet.Name = “SheetList”
Sheets(”SheetList”).Move after:=Sheets(Sheetnames + 1)
For i = 1 To Sheetnames
Range(”A” & i) = Sheets(i).Name
Next i
End Sub
I am trying to develop a macro that will:
listing all names of worksheets in a workbook on a separate worksheet
and list the the value of cell T6 of each worksheet.
The macro below will list the sheet names on a separate workbook but how do I get the contents of cell T6 of each worksheet to appear next to the worksheet name?
You're welcome to disregard the macro below and provide your own.
I really appreciate your help! Thank you.
Sub ListWorkSheetNames()
Dim Sheetnames
Sheetnames = Sheets.Count
Sheets.Add
ActiveSheet.Name = “SheetList”
Sheets(”SheetList”).Move after:=Sheets(Sheetnames + 1)
For i = 1 To Sheetnames
Range(”A” & i) = Sheets(i).Name
Next i
End Sub