What is your favourite small macro that improves productivity

[Bassie]

Trying to come up with ideas for a new project and would love to hear your favourite produtvitiy boosting macros

 

[Herakles]

I use this simple one a lot and it saves a lot of time.

Public Sub subFormatWorksheet(Ws As Worksheet)
Dim WsActive As Worksheet

    Set WsActive = ActiveSheet
    
    With Ws.Range("A1").CurrentRegion
        With .Rows(1)
            .Interior.Color = RGB(213, 213, 213)
            .Font.Bold = True
        End With
        .Font.Size = 14
        .Font.Name = "Arial"
        .RowHeight = 30
        .VerticalAlignment = xlCenter
        .IndentLevel = 1
        .EntireColumn.AutoFit
    End With
    
    With Ws.Range("A1").CurrentRegion.Borders
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = vbBlack
    End With

    If Not ActiveWindow.FreezePanes Then
        Ws.Activate
        Range("A2").Select
        ActiveWindow.FreezePanes = True
        Ws.Activate.Activate
    End If
        
End Sub

 

[rlv01]

Similar to what @Herakles posted above, but less elaborate. I have to view/analyze large data sets that people send me in my day job, and I use this a gazillion times a day.

''' Format the header row
Sub FmtHeader()
    Dim WS As Worksheet
    Dim R As Range

    Set WS = ActiveSheet
    Set R = Application.Intersect(WS.UsedRange, WS.Rows(1).Cells)
    R.Font.Bold = True
    With R.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    WS.Range("A2").Select
    If Not ActiveWindow.FreezePanes Then
        ActiveWindow.FreezePanes = True
    End If
    WS.Columns.AutoFit
End Sub