Macro skal køre macro

call macronavn

men de skal vist ligge i samme modul

Det kan jeg ikke få til at virke, men nedenstående virker:
Application.Run "Jkmi_test_CIL.xls!Sheet1.Heol1"

Så mangler vi bare at få den til at printe fra det aktive ark og frem til det sidste?

http://www.eksperten.dk/spm/315997

se mit svar her

nåå, fra det aktive til det sidste, jeg tester lige om det kan laves.

Sub Heol2()
I = 1
Ok = False
  For Each ws In Worksheets
  If ws.Name = ActiveSheet.Name Then
    Ok = True
  End If
  If Ok = True Then
      Sheets(ws.Name).Select
    With ActiveSheet.PageSetup

        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
      ' .PrintErrors = xlPrintErrorsDisplayed
    End With


    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
       
    With ActiveSheet.PageSetup
       
        .Zoom = 100
    '  .PrintErrors = xlPrintErrorsDisplayed
    End With
    End If
    Next ws
   

End Sub


Public Sub find()
I = 1
Ok = False
  For Each ws In Worksheets
  If ws.Name = ActiveSheet.Name Then
    Ok = True
  End If
  If Ok = True Then
    Worksheets("ark1").Cells(I, 1) = ws.Name & " UDSKRIVES"
      I = I + 1
    End If
    Next ws
End Sub

Den første er ok.

Den sidste er en lille en jeg lavede for at teste hvilke sider den valgte.

Det er bare perfekt.

Kan du fortælle mig hvordan det fungere?

Jeg tjekkede om den fandt arkene efter placering eller alfabetisk.
Den fandt dem efter placering.

Så den tjekker arknavnene og når den møder det ark som er aktiv, skriver den det ud + alle efterfølgende ark.

kabbak