Run Private Sub Worksheet_Change(ByVal Target As Range) Macro

I am doing macro. However, it is running but not working. Not sure where I went wrong.

I tried referring to below link but still doesn't work for me.

Kindly advise. Thank you.

https://www.ozgrid.com/forum/forum/help-forums/excel-general/108851-how-do-i-run-a-private-sub-worksheet_change-byval-target-as-range-macro

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Value = "False" Then
        With Target.Offset(0, -3).Interior
            .Pattern = xlSolid
            .PatternColorIndex = xlAutomatic
            .Color = 5287936
            .TintAndShade = 0
            .PatternTintAndShade = 0
        End With
    End If
End Sub


Public Sub hello()
Run "sheet1.worksheet_change", Range("a1")


End Sub

[ATTACH=JSON]{"data-align":"none","data-size":"full","title":"Capture.PNG","data-attachmentid":1209546}[/ATTACH][ATTACH=JSON]{"data-align":"none","data-size":"full","title":"Capture2.PNG","data-attachmentid":1209548}[/ATTACH]
Hi, I tried like you suggested, however, it runs but doesn't work. Not sure where it went wrong

Hi, kindly find the attachment below. Thank you

Hi, it works. Thank you. However, when I try to run the same macro to a similar file, i can see the macro but when run it doesn't highlight. Is there any additional steps to do? I tried the create new macro for the file and copied the codes for sheet and module.

Hi [USER="31712"]Carim[/USER], can I use the same codes for different sheets? e.g.
[ATTACH=JSON]{"alt":"Click image for larger version Name:\thi.jpeg Views:\t1 Size:\t54.6 KB ID:\t1210220","data-align":"none","data-attachmentid":"1210220","data-size":"full","title":"hi.jpeg"}[/ATTACH]

Hi, I have been trying but couldn't. Pls help.

p.s. I managed to do it. However, for the correction macro, is it possible to run it for all worksheets?. As the other macro(for highlighting is auto updated), but correction is not

And sorry one more question..

in this code:
Application.Calculation = xlCalculationManual
For i = 2 To 7820
For j = 8 To 48 Step 8
Run "Sheet3.Worksheet_change", Cells(i, j)
Next j
Next i
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

It looks for 'False' cells in every 8th column, and do the highlighting on the 7th column.

Can it look at every 6th and 8th column for the false cells and do the highlighting on the column before the false cell?

Hi carim, sorry for the trouble
1. Yes I did changed the structure abit. However, the structure somewhat similar. every 8 columns repeats the same structure.
2. Yes, correct all worksheets exclusdng summary. All the sheets have same structure.
3. If I change the cells to be like below, Can the look at the both 6th and 8th column for FALSE value?
[ATTACH=JSON]{"data-align":"none","data-size":"full","title":"hi4.jpeg","data-attachmentid":1210269}[/ATTACH]

Hi Carim. Thank you so much. It is exactly what I wanted. Is it possible to make it dynamic?

[ATTACH=JSON]{"data-align":"none","data-size":"full","title":"hi5.jpeg","data-attachmentid":1210278}[/ATTACH]

Hi carim. Thank you so much. It is working fine. One more query. Is it possible to make the highlighting for dynamic range?
[ATTACH=JSON]{"data-align":"none","data-size":"full","title":"hi5.jpeg","data-attachmentid":1210281}[/ATTACH]