Hi guys, I'm attempting to write a Macro to add and rename a Worksheet - 

Sheets.Add After:=Sheets(Sheets.Count)
    Sheets("Sheet1").Name = "ToDBase"
The problem I'm having is that if the macro is run a second time, the Sheets.Count brings "Sheet2" which stops the process. Is there a way to alter the macro to read the actual next sheet?

Thanks again,
Den