Hi, below are my codes. How can I use Invoke VBA activity for below codes?
In the module,
Sub Hi()
Dim i As Long
Dim j As Long
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For i = 2 To 7820
For j = 8 To 48 Step 8
Run "Sheet1.Worksheet_change", Cells(i, j)
Next j
Next i
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub
In the worksheet,
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value = "False" Then Target.Offset(0, -1).Font.Color = 255 Else Target.Offset(0, -1).Interior.Color = xlNone
End Sub
Thank you xoxo