Unable to MATCH Dates

[Ark68]

I'm trying to use this code (red line) to determine what row the current date can be found in column B of the worksheet.

        With ws_wstoview
            If .Visible = xlSheetVisible Then
                .Visible = xlSheetHidden
                Worksheets("FRONT").Activate
            Else
                .Visible = xlSheetVisible
                .Activate
                lrow = Application.WorksheetFunction.Match(Date, .Range("B:B"), 0)
                .Cells(lrow, 1).Activate
            End If
        End With

I am receiving an error with the line in red : "Unable to get the Match property of the WorksheetFunction class"

Date, when I hover over it is 3/11/2019.
In worksheet "ws_wstoview", column B, row 41, the value 3/11/2019 exists (as seen in the formula bar ... but formatted in the cell as "Mon 11-Mar")

Why is my code unable to find the answer to the forumla?

 

[dmt32]

Hi,
try this update to your code & see if helps

   Dim lrow As Variant
    With ws_wstoview
            If .Visible = xlSheetVisible Then
                .Visible = xlSheetHidden
                Worksheets("FRONT").Activate
            Else
                .Visible = xlSheetVisible
                .Activate
                lrow = Application.Match(CLng(Date), .Range("B:B"), 0)
               If Not IsError(lrow) Then .Cells(CLng(lrow), 1).Activate
            End If
        End With

To manage the error (date not found), Variable lrow will need to be declared as Variant data type

Dave

 

[MickG]

another option:-

  Lrow = Application.WorksheetFunction.Match(CDbl(DateValue(Date)), .Range("B:B"), 0)

 

[Ark68]

That is great! Thanks folks, I appreciate the choice. Both were practical and educational!