Hi Jan,
Unfortunately your question does not make much sense to me.
The correct newsgroup for macros is excel.programming,
but don't repost question. Same people in these groups.
Here are some one liners that may be close to what you could
be asking for. If this doesn't help please try to rephrase your
question.
'Create New Sheet
Sheets.Add
Sheets.Add After:=Sheets(Sheets.Count) '-- place at end
Sheets.Add Before:=ActiveSheet '-- default
Sheets.Add After:=ActiveSheet
'Rename current Sheet
ActiveSheet.Name = "Renamed14a"
ActiveSheet.Name = "D" & Format(Date, "yyyymmdd")
ActiveSheet.Name = "D" & Format(Range("a1"), "yyyymmdd")