Object Required Error

[Ark68]

Sub Initiate()
    Dim qdate As Date
    Set wb_master = ThisWorkbook
    Set ws_destination = wb_master.Worksheets("Destination")
    mbevents = False
        With ws_destination
            .Range("E1") = Format(Date + 1, "ddd mmm-dd-yy")
        'booking data
        Call process_bkgs
        With ws_destination
            lrow_bkgrows = ws_bookings.Cells(ws_bookings.Rows.Count, "B").End(xlUp).Row
            cnt_bkgrows = lrow_bkgrows - 1
            qdate = .Range("E1").Value
            cnt_date = Application.WorksheetFunction.CountIf(ws_bookings.Columns(2), qdate)
        End With
    mbevents = True
End Sub

I am receiving an "Object required." error with the line above in red. I'm unsure why. Thoughts?[/code]

 

[Michael M]

You don't have an End With for the first With stement

With ws_destination
            .Range("E1") = Format(Date + 1, "ddd mmm-dd-yy")

 

[Fluff]

E1 is text, hence the error, try it like

            .Range("E1") = Date + 1
            .Range("E1").NumberFormat = "ddd mmm-dd-yy"

 

[Ark68]

Thank you all for pointing out my errors! Much appreciation!

 

[Fluff]

Glad we could help & thanks for the feedback.