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

Public Sub SelectedRowsGrayAndWhite()
' Flemming Vadet, August 2002, fv@smartoffice.dk
    Dim lCount As Long
    ' Gray color on every second row
    For lCount = 1 To Selection.Rows.Count
        With Selection.Rows(lCount).Interior
            If lCount Mod 2 = 0 Then
                .ColorIndex = xlNone
            Else
                .ColorIndex = 15
            End If
        End With
    Next lCount
End Sub