VBA Help

[yogin2]

The code below allows me to run a macro and print the requested details.

What I wanted was when the macro is run, after it runs the following command. With Sheets("Days Daily Sheet") to prompt the user to enter the date, currently the date is set as default.

Sub OutloadingDays()
'
' OutloadingDays Macro
'
With Sheets("Days Daily Sheet")
.Range("D2") = Date
.Range("$B$4:$D$86").AutoFilter Field:=3, Criteria1:="DL"
.PrintOut Copies:=1
Sheets("Macro's").Select
End With
End Sub

Thanks

Yogin

 

[VoG]

Try

Sub OutloadingDays()
'
' OutloadingDays Macro
'
Dim MyDate As Date, StringDate As String
With Sheets("Days Daily Sheet")
    StringDate = InputBox("Enter Date")
    If IsDate(StringDate) Then
        MyDate = DateValue(StringDate)
        .Range("D2") = MyDate
    Else
        MsgBox "Invalid date"
        Exit Sub
    End If
    .Range("$B$4:$D$86").AutoFilter Field:=3, Criteria1:="DL"
    .PrintOut Copies:=1
    Sheets("Macro's").Select
End With
End Sub

 

[yogin2]

Thank Vog,

This works perfect.