Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. Get Rows from a range
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