Makro til oprettelse af ark med navn fra skiftende celler

Ja - hvis du har mulighed for at sende filen - så kan jeg sætte en makro ind..

@-adresse under profil.

Rem Version 2
Rem =========
Private Sub Worksheet_Change(ByVal Target As Range)
Dim kol As Integer, ræk As Long
    Application.ScreenUpdating = False
   
    kol = Target.Column
    ræk = Target.row
   
    If kol = 6 And Target.Value = "Ja" And Target.Offset(0, -1) <> "" Then
        opretnytArk ræk
    End If
   
    Application.ScreenUpdating = True
End Sub
Private Sub opretnytArk(ræk)
Dim antalArk As Integer, arkNAvn As String, række As String
    række = ræk
    arkNAvn = Range("A" & række) & Range("B" & række)
    antalArk = ActiveWorkbook.Sheets.Count
   
    Worksheets("Log").Copy After:=Worksheets(antalArk)
    Sheets(antalArk + 1).Name = arkNAvn
   
    With Sheets(antalArk + 1)
        .Range("F3") = Range("A" & række) & Range("B" & række) & Range("C" & række) & Range("D" & række)
        .Columns.AutoFit
    End With
   
    Sheets("Ark1").Activate
End Sub