Hej!

Jag ska har en lista och celler längst till höger ska kryssas för att indikera att de raderna ska användas. Sedan ska man trycka på en knapp för att skapa nya blad som ska heta enligt listan och innehålla samma som ett "referensblad".

Problemet är att första bladet blir rätt men andra bladet vill ta samma namn som den första raden. Så intrad = intrad + 1 verkar inte funka.

Vad gör jag för fel?

Koden:

Sub sheet()

Dim Intradnr As Integer
Intradnr = 3

'Dim blad As Integer
'blad = Cells(Intrad, 3)

Do While Cells(Intradnr, 7) = 1
     
   If Cells(Intradnr, 6) <> "" Then
   
    Worksheets.Add(After:=Worksheets("Projekt 1")).Name = Cells(Intradnr, 3)

Sheets("Projekt 1").Select
Range("A1:XFD1048576").Select
Selection.Copy

ActiveSheet.Next.Select
Range("A1").Select
ActiveSheet.Paste
    Application.CutCopyMode = False

Sheets("Välj projekt").Select

Cells(Intradnr, 3).Select
    Selection.Copy
    Sheets("Projekt 1").Select
    ActiveSheet.Next.Select
    Range("B3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Välj projekt").Select
    Range("I5").Select
    Application.CutCopyMode = False
   
   Else
   Intradnr = Intradnr + 1
    
   End If
  
Loop
End Sub