Vlookup in VBA on non-active sheet

[Chopper50]

I am looking to "pre"populate a ComboBox for the user with some data. The 1st step is to utilize a Vlookup that takes the current date and chooses a shift letter (A or C) that is on a non-activated sheet.. The below code gives me a runtime error 1004 on the Vlookup line

Sub Show_Sort_Entry_Form()
Dim Entry_Time, Entry_Date As Date
Dim Shift As String

Entry_Time = Hour(Now()) & ":" & Minute(Now())
Entry_Date = Month(Now()) & "/" & Day(Now()) & "/" & Year(Now())

Shift = Application.WorksheetFunction.VLookup(Entry_Date, ActiveWorkbook.Worksheets("Data").Range("K2:K425"), 1, False)

Sort_Entry_Form.Show vbModeless

End Sub

Snippet from "Data" Worksheet

 

[EFANYoutube]

Hi Chopper50
Please try the below in place of your current "Shift = ...."

Shift = ThisWorkbook.Sheets("Data").Range("K:K").Find(Entry_Date).Offset(, 1).Value

 

[Chopper50]

Thanks EFANYoutube!