MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.
Sub FormatSubtotalRow() Dim LastRow As Long Dim i As Long Application.ScreenUpdating = False With Sheets("Accrual") LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row For i = 2 To LastRow If Range("A" And i) = "Subtotal" Then Range("A" And i).Interior.ColorIndex = 36 End If Next i End With Application.ScreenUpdating = True End Sub
|Limit the # times a macro code will run||14||50|
|Automatically report prepared in excel by VBA||5||34|
|Need To remove Extra Column adding, while downloading through vba||1||27|
|Formula in Excel or vba to transfer values from Column X to Y||5||29|