VBA defination af udskitift

Kan du ikke bare oprette en makro, og lave alle ændringer du ønsker - stoppe makro'en og  se hvad den har skrevet?!

Nej det kan jeg ikke, for arknavn og antallet af ark varierer...

'denne udskriver arkene en ad gangen

Sub PrintAFD()
    Dim sh As Worksheet
    For Each sh In ActiveWorkbook.Worksheets
        If InStr(UCase(sh.Name), "AFD") = 1 Then
            sh.PrintOut Copies:=1, Collate:=True
        End If
    Next
End Sub

Det er lidt noget skidt, da jeg har side antal og side tal i alt på hver enkelt side..

Olsen205 > Prøv at se på denne her:

Sub PrintAFDSheets()
Dim SheetList() As String
Dim SheetCount As Long

ReDim SheetList(1 To ThisWorkbook.Sheets.Count)
SheetCount = 0

For Each sh In ActiveWorkbook.Worksheets
    If InStr(UCase(sh.Name), "AFD") Then
        SheetCount = SheetCount + 1
        SheetList(SheetCount) = sh.Name
    End If
Next sh
ReDim Preserve SheetList(1 To SheetCount)

ThisWorkbook.Sheets(SheetList).PrintPreview
   
End Sub

Virker perfekt... Det kunne ikke være bedre, takker mange gange....

olsen205 > Tak for pointene, men stefanfuglsang skulle næsten have haft lidt - det var jo trods alt hans forslag jeg byggede lidt videre på. Hvis det er ok med dig, opretter jeg et nyt spørgsmål, hvor jeg overfører halvdelen af pointene til stefanfuglsang.