Ekstern makrofil

Hej

Jeg prøver lige igen, da jeg ikke kan finde ud af det.

Jeg har følgende problemstilling/spørgsmål:

1. Jeg har en skabelon.xlt
2. Jeg har 6 makroer i denne skabelon med tilhørende knapper

Jeg vil gerne at denne skabelon henter makroer og knapper fra en ekstern fil, således at hvis jeg retter i makroerne, tilføjer makroer eller knapper, at det så altid er det nyeste der bliver hentet ind i skabelon.xlt eller den fil man nu har gemt skabelon.xlt som.

Kan man det ?

Her er mine makroer:

Sub Skjul()
Application.ScreenUpdating = False
Dim iLoop As Integer
Dim rNa As Range
Dim i As Integer
Dim rX As Range
svalue = 0          'søgeværdi
scolumn = 13            'søgekolonne
iLoop = WorksheetFunction.CountIf(Columns(scolumn), svalue)
Set rNa = Cells(1, scolumn)
Set rX = Columns(scolumn).Find(What:=searchvalue, After:=rNa, _
            LookIn:=xlValues, LookAt:=xlWhole, _
            SearchOrder:=xlByRows, SearchDirection:=xlNext, _
            MatchCase:=True)

For i = 1 To iLoop
  Set rNa = Columns(scolumn).Find(What:=svalue, After:=rNa, _
            LookIn:=xlValues, LookAt:=xlWhole, _
            SearchOrder:=xlByRows, SearchDirection:=xlNext, _
            MatchCase:=True)
  Set rX = Union(rNa, rX)
Next i
rX.EntireRow.Hidden = True
Application.ScreenUpdating = True
ActiveSheet.Cells(1, 3).Select
End Sub

Sub Vis()
  Application.ScreenUpdating = False
  Cells.Select
  Selection.EntireRow.Hidden = False
  Application.ScreenUpdating = True
  ActiveSheet.Cells(1, 3).Select
  End Sub
 
Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("SR").Delete
End Sub
Sub Linie()
JaNej = MsgBox("Denne funktion indsætter en ny linie. Linien indsættes under den linie du står på nu. Vil du fortsætte ?", vbYesNo + vbQuestion, "Indsæt ny linie")
Select Case JaNej
Case vbYes
ActiveCell.Offset(1, 0).Select
Selection.EntireRow.Insert
Worksheets("Stamdata").Range("200:200").EntireRow.Copy Destination:=ActiveCell.Offset(0, 0).EntireRow
Case vbNo
End Select
End Sub
Sub Note()
JaNej = MsgBox("Denne funktion indsætter en ny note. Du skal stå på linien lige under en allerede eksisterende note. Vil du fortsætte ?", vbYesNo + vbQuestion, "Indsæt ny note")
Select Case JaNej
Case vbYes
If ActiveSheet.Name = "Noter spec." Then
Dim i
ActiveCell.Offset(0, 0).Select
For i = 1 To 10
Selection.EntireRow.Insert
Next

Worksheets("Stamdata").Range("202:212").EntireRow.Copy Destination:=ActiveCell.Offset(0, 0).EntireRow
Else
End If
If ActiveSheet.Name = "Noter" Then
ActiveCell.Offset(0, 0).Select
For i = 1 To 10
Selection.EntireRow.Insert
Next

Worksheets("Stamdata").Range("188:198").EntireRow.Copy Destination:=ActiveCell.Offset(0, 0).EntireRow
Else
End If
Case vbNo
End Select
End Sub
Sub Overskrift()
JaNej = MsgBox("Denne funktion indsætter en overskrift. Du skal stå på en noteoverskrift. Vil du fortsætte ?", vbYesNo + vbQuestion, "Indsæt overskrift")
Select Case JaNej
Case vbYes
If ActiveSheet.Name = "Noter" Then
JaNej = MsgBox("Skal der kun stå 'Noter' uden årstal ?", vbYesNo + vbQuestion, "Indsæt overskrift")
Select Case JaNej
Case vbYes
ActiveCell.Offset(0, 0).Select
For i = 1 To 2
Selection.EntireRow.Insert
Next

Worksheets("Stamdata").Range("232:233").EntireRow.Copy Destination:=ActiveCell.Offset(0, 0).EntireRow
Case vbNo
ActiveCell.Offset(0, 0).Select
For i = 1 To 4
Selection.EntireRow.Insert
Next

Worksheets("Stamdata").Range("215:218").EntireRow.Copy Destination:=ActiveCell.Offset(0, 0).EntireRow
End Select
Else
MsgBox "Du står ikke på arket 'Noter' !"
End If
Case vbNo
End Select
End Sub

Sub Sidetal()
Dim pn As Variant
JaNej = MsgBox("Skal sidetallet sættes til 'Auto' ?", vbYesNo + vbQuestion, "Ret sidetal")
Select Case JaNej
Case vbYes
With ActiveSheet.PageSetup
            .FirstPageNumber = xlAutomatic
         
        End With
Case vbNo
        pn = Application.InputBox("Indtast sidetal på arket", "Ret sidetal")
       
        If pn = False Then Exit Sub
       
        With ActiveSheet.PageSetup
            .FirstPageNumber = pn
           
        End With
 
End Select
End Sub