Dynamic Ranges error after renaming workbook

[cross0404]

Hi All,
I have successfully created a number of dynamic ranges using INDEX which work perfectly, however if I resave the workbook with another name error 1004 occurs. I know it is because I have hard coded the workbook name ".xlsm" into the code, but I really don't know how to tell the code to use the current workbook name, rather than a hardcoded workbook name to select the dynamic range. I have to rename the workbook as the each time the user runs the program it saves the workbook as the current date. The program pulls data in and then there are a number of graphs that are created for all the data in the dynamic ranges. Running the program can produce different results, hence the fact I have to rename it each time the program is run.

Code snippet as follows:

 
    ActiveWorkbook.Names.Add Name:="ImportStatistics", RefersToR1C1:= _
                             "='Import Statistics Data - Push'!R3C1:INDEX('Import Statistics Data - Push'!R3C58:R112C58,COUNT('Import Statistics Data - Push'!R3C58:R112C58))"
    ActiveWorkbook.Names("ImportStatistics").Comment = ""

       Worksheets("Import Statistics Data - Push").Select

    With Worksheets("Import Statistics Data - Push")
        .Select
        ActiveSheet.Range("StatisticsOutput.xlsm!ImportStatistics").Select       '***** This is where the problem occurs, note static reference to StatisticsOutput.xlsm workbook which is the current workbook hosting this code****

    End With

Any help with this would be greatly appreciated

[Norie]

Are you sure you need the workbook name?

Does this work?

Range("ImportStatistics").Select

If you do need to refer to the current workbook by name you can use ThisWorkbook.Name.

[cross0404]

That works...I think I was over-complicating things. Don't need the workbook name afterall.