problem with creating and naming sheets

[dschmitt]

currently I create new sheets and name them as shown in the code below.
Is it possible to create the sheet after a specified sheet and name it at the same time.
In other words, is it possible to turn my 3 line code into a one liner?

Please Login or Register  to view this content.

[royUK]

This will reduce the code

Please Login or Register  to view this content.