G
Guest
I have a workbook with 1 worksheet named "something_data" I would like to
add a new worksheet names "something_rpt" The "something" will come form
another sub used earlier.
I am trying this:
Sub CreateReport()
Dim strSheetName As String
strSheetName = ActiveSheet.Name
Sheets.Add
Sheets("Sheet1").Select
Sheets("Sheet1").Name = Replace(strSheetName, "_data", "_rpt")
End Sub
but I get an error at this line - Sheets("Sheet1").Select
saying subscript out of range. How do I add my sheet?
Thanks
Mike
add a new worksheet names "something_rpt" The "something" will come form
another sub used earlier.
I am trying this:
Sub CreateReport()
Dim strSheetName As String
strSheetName = ActiveSheet.Name
Sheets.Add
Sheets("Sheet1").Select
Sheets("Sheet1").Name = Replace(strSheetName, "_data", "_rpt")
End Sub
but I get an error at this line - Sheets("Sheet1").Select
saying subscript out of range. How do I add my sheet?
Thanks
Mike