This might work for you:

'+++++++++++++++++++++++++
Dim mySheet As Worksheet
Set mySheet = Sheets.Add(Sheets(1))
mySheet.Name = "Kvartal" & Sheets.Count
'+++++++++++++++++++++++++

Rgds
J

On Oct 18, 1:36 pm, Calle wrote:
Hi!
Is it possible to have a macro that creat a new sheet and puts it first in
the workbook like this:

I have one sheet named: kvartal1
The macro creats a sheet named kvartal2. If I run it again it creats
kvartal3... and so on.