Sorry, should have added the code
Dim ws As Worksheet
Set wh = Worksheets(ActiveSheet.Name)
If wh.Range("i9").Value <> "" Then
ActiveSheet.Name = wh.Range("i9").Value
'go back to original sheet and delete cell content. Original sheet being used as the template
'Would like to go to the new sheet here
1) i would like the code to run automatically when cell D11 & H11 are not blank. The code works but I need to click a button
2) I would like the"new" worksheet to open and be automatically renamed based on cell I9. The code renames the sheet but does not open the "new" worksheet.
3) I would like cells D11 & H11 in the "template" to clear once the "new worksheet is created and opened.