Is there a way i can apply this excel code in access:
Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Me.Range("w1")) Is Nothing Then
    
        Call orange
        Application.EnableEvents = True
    End If
End Sub

Module:
Sub orange()
Dim barcode As String
Dim rng As Range
Dim rownumber As Long
If Sheet1.Cells(1, 23) <> "" Then
barcode = Sheet1.Cells(1, 23)

    Set rng = Sheet1.Columns("b:b").Find(What:=barcode, _
    LookIn:=xlFormulas, LookAt:=xlWhole, searchorder:=xlByRows, _
    SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
    
    If rng Is Nothing Then
        MsgBox "Not Found"
        Exit Sub
    Else
        rownumber = rng.Row
        Sheet1.Cells(rownumber, 2).Select
        ActiveCell.Interior.ColorIndex = 45
        Sheet1.Cells(1, 23) = ""
            
    End If
    Sheet1.Cells(1, 23).Select
    
  End If
End Sub