Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Changes font to bold

Sub Bold()    Dim rngRow As Range    For Each rngRow In Range("A1:E5").Rows       If rngRow.Cells(1).Value > 1 Then          rngRow.Font.Bold = True       Else          rngRow.Font.Bold = False       End If    Next rngRow End Sub