Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Get rows from a named range (name the range before running this cript)

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