tilføj VBA code til nyt dokument

Hej,
Tag et kik på dette link, jeg tror der er noget kode du kan bruge.

http://www.cpearson.com/excel/vbe.aspx

Hilsen
Tue

Et eksempel:

Public Sub Flyt_Markeringskode_til_AktiveArk()
' i Code skriver du den kode der skal over, så det hele er i variablen Code, som nedenstående

    Code = "Private Sub Worksheet_SelectionChange(ByVal Target As Range)" & vbCrLf
    Code = Code & "    Cells.Interior.ColorIndex = xlNone" & vbCrLf
    Code = Code & "    ActiveCell.EntireRow.Interior.ColorIndex = 19" & vbCrLf
    Code = Code & "End Sub"

' hvor skal det hen, her i arkmodulet på de aktive ark.

    With ActiveWorkbook.VBProject. _
        VBComponents(ActiveSheet.Name).CodeModule
        NextLine = .CountOfLines + 1
        .InsertLines NextLine, Code
    End With
End Sub

Koden her laver en gul række hvor markøren står

læg lige et svar, så får jeg lukket denne.

lukker