Quick ref for Excel Macros

excel_vba_quick_ref.bas

' ------------------------------------------------------------------------------
' Quick ref for Excel Macros
' ------------------------------------------------------------------------------

' for loops
Dim i as Integer
For i = 0 To 10
    ' Basic ranged loop
Next i















' ------------------------------------------------------------------------------
' Handy functions
' ------------------------------------------------------------------------------

' from: http://www.mrexcel.com/forum/excel-questions/508248-excel-2007-remove-all-custom-styles.html
' Delete all non built in styles from workbook
Public Sub CleanupStyles()
    Dim sty As Style
    For Each sty In ActiveWorkbook.Styles
        If Not sty.BuiltIn Then
            ' Ignore some by name
            If sty.Name <> "column_info" And sty.Name <> "Sheet Title" Then
                'Delete the style
                sty.Delete
            End If
        End If
    Next sty
End Sub

' Copies comments from all selected cells in to the cell below it
Sub copyComments()
    Dim source_range As Range
    Set source_range = Selection
    Dim cell As Range
    For Each cell In source_range
        txt = cell.Comment.Text
        cell.Offset(1,0).Value = txt
    Next cell
End Sub