Autokopier

Prøv at sende arket til mig, så skal jeg kigge på det.

jan_vogt_hansen@hotmail.com

Jeg kigger lige på det.

Prøv med denne her ISTEDET

Jeg prøver lige igen...
Prøv med denne her ISTEDET for den fra i går.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rColumn As Range
Dim vSvar As Variant
Dim iWS As Integer
    Set rColumn = Range(\"A:A\")
   
    If Not Intersect(Target, rColumn) Is Nothing Then
       
        vSvar = \"\"
        vSvar = MsgBox(\"Der er ændret i kolonne A.\" & vbCrLf & vbCrLf & _
              \"Skal der oprettes et ark med navnet \" & Target.Value & \" ?\", _
              vbYesNo, \"Systeminformation\")
       
        If vSvar = vbYes Then
            iWS = ThisWorkbook.Sheets.Count
            Sheets(\"Tomt Ark\").Copy After:=Sheets(iWS)
            ActiveSheet.Name = Target.Value
        End If
   
    End If
   
Set rColumn = Nothing
End Sub

Ret \"Tomt Ark\" til det rigtige navn!!!!!!!

Det virker bare helt perfekt..

:-)