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