Har du set hvor smart det kan være?

• Word - Smart Office Skabelon system
• Word - Søg og erstat i flere dokumenter
• Excel - File Export
• Excel - Data Management (Freeware)

SmartOffice - ForEachWorkSheet

Public Sub ForEachWorkSheet()
'Flemming Vadet, August 1999, fv@smartoffice.dk
    Dim Ws As Worksheet
    Dim WsA As Worksheet
    Set WsA = ActiveSheet

    For Each Ws In ActiveWorkbook.Worksheets
        '[din kode til hvert Ark]
    Next Ws
    
    WsA.Select
    Set Ws = Nothing
    Set WsA = Nothing
End Sub

Public Sub Test_ForEachWorkSheet()
    Dim Ws As Worksheet
    Dim WsA As Worksheet
    Set WsA = ActiveSheet

    For Each Ws In ActiveWorkbook.Worksheets
        'Indsætter arkets egne navne ind i celle A1 i alle ark
        Ws.Range("A1") = Ws.Name
    Next Ws
    
    WsA.Select
    Set Ws = Nothing
    Set WsA = Nothing
End Sub