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

Public Function SheetExists(ByRef SheetName As String) As Boolean
    On Error Resume Next
    SheetExists = ActiveWorkbook.Worksheets(SheetName).Index
End Function

Public Sub Test_SheetExists()
    Dim bAnswer As Boolean
    bAnswer = SheetExists("Sheet1")
    MsgBox "SheetExists returnerer svaret... " & bAnswer
End Sub