Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. Bold cells in a Row
Public Sub BoldCells()
  Dim Row As Object
  
  For Each Row In Range("SalesData").Rows
    If Row.Cells(1).Value > 1000 Then
      Row.Font.Bold = True
    Else
      Row.Font.Bold = False
    End If
  Next Row
End Sub