Hi teams, how can I run my macro without the button. Below is my script
Sub IF_Loop()
Dim cell As Range
For Each cell In Range("L12:AU3637")
If cell.Value Like "IMPORTANT" Then
cell.Interior.Color = 5296274
ElseIf cell.Value Like "NOT APPLICABLE" Then
cell.Interior.Color = 8421504
Else
cell.Interior.Color = 255
End If
Next cell
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim xSRg, xDRg, xISRg, xIDRg As Range
Dim xFNum As Long
On Error Resume Next
Set xSRg = Range("L12:L3637")
Set xDRg = Range("K12:K16")
For xFNum = 1 To xSRg.Count
Set xISRg = xSRg.Item(xFNum)
Set xIDRg = xDRg.Item(xFNum)
xIDRg.Interior.Color = xISRg.Interior.Color
Next xFNum
End Sub
Sub IF_Loop()
Dim cell As Range
For Each cell In Range("L12:AU3637")
If cell.Value Like "IMPORTANT" Then
cell.Interior.Color = 5296274
ElseIf cell.Value Like "NOT APPLICABLE" Then
cell.Interior.Color = 8421504
Else
cell.Interior.Color = 255
End If
Next cell
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim xSRg, xDRg, xISRg, xIDRg As Range
Dim xFNum As Long
On Error Resume Next
Set xSRg = Range("L12:L3637")
Set xDRg = Range("K12:K16")
For xFNum = 1 To xSRg.Count
Set xISRg = xSRg.Item(xFNum)
Set xIDRg = xDRg.Item(xFNum)
xIDRg.Interior.Color = xISRg.Interior.Color
Next xFNum
End Sub