Sub Or Function not Defined ('Worksheet' not working as intended)

Its been a long time since i tried VB in excel and i followed this ladies tutorial on youtube (Use Barcodes in Excel to track in and outs - Barb Henderson, 2019 [Youtube]). I copied everything and adjusted it to fit my sheets but I don't know why this error keeps occurring on this line.
_______________________________________________________________________________

Sub checkin()
Dim barcode As String
Dim rng As Range
Dim rownumber As Long


barcode = Worksheet("Sheet4").Cells(1, 2)

    Set rng = Sheet1.Columns("a:a").Find(What:=barcode, _
    LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, _
    SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
    
    If rng Is Nothing Then
        ActiveSheet.Columns("a:a").Find("").Select
        ActiveCell.Value = barcode
        ActiveCell.Offset(0, 1).Select
        ActiveCell.Value = Date & " " & Time
        ActiveCell.NumberFormat = "d/m/yyyy h:mm AM/PM"
        Worksheets("Sheet4").Cells(1, 2) = ""
    End If
End Sub
________

_______________________________________________________________________

The error I am getting is "Compile error: Sub or Function not defined" It then highlights the word Worksheet in the yellow line.


image_2021-12-28_032933.png

Code Tags Added
Your post does not comply with Rule 2 of our Forum RULES. Use code tags around code.

Posting code between [CODE] [/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found at http://www.excelforum.com/forum-rule...rum-rules.html



(I have added them for you today. Please take a few minutes to read all Forum Rules and comply in the future.)

Change below red snippet to Sheets or Worksheets

barcode = Worksheet("Sheet4").Cells(1, 2)

Code can be simplified...

Sub checkin()
Dim barcode As String, rng As Range
barcode = Sheets("Sheet4").Cells(1, 2).Value
Set rng = Sheet1.Columns("A:A").Find(barcode, , xlValues, xlWhole)
If rng Is Nothing Then Sheet1.Range("A" & Rows.Count).End(xlUp)(2).Resize(, 2) = Array(barcode, Format(Date, "d/m/yyyy h:mm AM/PM"))
End Sub

According to above image there is no sheet called "Sheet4"

Should it not be...

Sheets("Check-in")

or it can be referenced as

Sheet4

Sheet1 refers Sheets("Inventory")
Sheet4 refers Sheets("Check-In")

The 1 & 4 refers Index numbers

Sub checkin()
Dim barcode As String, rng As Range
barcode = Sheet4.Cells(1, 2).Value
Set rng = Sheet1.Columns("A:A").Find(barcode, , xlValues, xlWhole)
If rng Is Nothing Then
    Sheet1.Range("A" & Rows.Count).End(xlUp)(2).Resize(, 2) = Array(barcode, Format(Date, "d/m/yyyy h:mm AM/PM"))
End If
End Sub

Pleasure...Welcome to the Forum...Enjoy your learning curve...Happy coding...

As you are new here, Please take a moment to read all the rules as per ALAN request...
If that takes care of your original question, please select Thread Tools from the menu link above and mark this thread as SOLVED.
Also, If you feel a member has helped, pls feel free to click left of post [Add Reputation]

Tx for rep + "Actual" Chad