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 - MergeAllSheetsIntoOne

Public Sub MergeUsedRangesIntoOneSheet()
    'Flemming Vadet, September 2003, fv@smartoffice.dk
    Dim lCount As Long
    Dim wksAct As Worksheet
    Dim lRow As Long

    Set wksAct = ActiveWorkbook.Sheets.Add(Before:=ActiveWorkbook.Sheets(1))
    Application.ScreenUpdating = False

    With ActiveWorkbook
        For lCount = 1 To .Worksheets.Count
            If Not (lCount = wksAct.Index) Then
                .Worksheets(lCount).UsedRange.Copy
                With wksAct
                    lRow = .UsedRange.Rows.Count + 3
                    .Cells(lRow, 1).PasteSpecial Paste:=xlPasteAll
                End With
            End If
        Next lCount
    End With

    ' CleanUp'
    With Application
        .CutCopyMode = False
        .ScreenUpdating = False
    End With
    Set wksAct = Nothing
End Sub