Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

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