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

Public Function CellNameExists(ByRef WB As Excel.Workbook, _
        ByRef WhatName As String) As Boolean
'Flemming Vadet, Januar 2002, fv@smartoffice.dk
    On Error Resume Next
    CellNameExists = Len(WB.Names(WhatName).Name) <> 0
End Function

Private Sub ClearAllNamesInThisWorkbook()
'Flemming Dahl, Januar 2002, fd@smartoffice.dk
'Køres manuelt - sletter alle Navne på navngivne celler i regnearket.
    Dim MyName As Name
    For Each MyName In ActiveWorkbook.Names
        MyName.Delete
    Next MyName
    Set MyName = Nothing
End Sub