Я получил это для запуска, но он не работает должным образом. (Интересно, что только одна ячейка в указанном мной SheetB при запуске меняется на красный шрифт.) Мое предположение заключается в том, что я не указываю, какие листы и / или диапазоны следует использовать в правильных местах в сценарии, или что мой синтаксис просто неверен. Спасибо за помощь.

Sub RedBold()
'Sets color of current cell to red  
With ActiveCell.Font
    .Color = -16776961
    .TintAndShade = 0
End With
ActiveCell.Font.Bold = True 
End Sub

Option Explicit

Sub LowInventory()

Dim cell As Range
Dim deltaQ As Range

'Assign specific cell range in the Inventory Quantities sheet to variable          deltaQ
Set deltaQ = Sheets("Inventory Quantities").[E3:E190]

'Conditional loop that checks for low deltaQ values and assigns a color to   two specific cell ranges in the Inventory Costs, Sources sheet
For Each cell In deltaQ.Cells
    'if deltaQ value is less than 2
    If cell.Value < 2 Then
        'Specify cell ranges in specific sheet to be affected by low inventory check loop
        Sheets("Inventory Costs, Sources").Range("B3:B190, C3:C190").Select
        Call RedBold
    End If
Next

End Sub

0