Alow delay of 30 secs in Macro after Msgbox

[howard]

I have the following macro, which contains a Msgbox. I would like a delay to allow the user to first enter the month and years and once entered then macro to continue


It would be appreciated if someone could amend my code

 Sub Email_Reports()
With Range("B6")
MsgBox ("Enter the TB extraction  month and year, for e.g. March 2020")

End With

Dim FileArr, i As Long
Application.ScreenUpdating = False
With Application.FileDialog(msoFileDialogFilePicker)
.InitialFileName = "C:\Pull"
If .Show = -1 Then
ReDim FileArr(1 To .SelectedItems.Count)
For i = 1 To .SelectedItems.Count
FileArr(i) = .SelectedItems(i)
Next i
Else
MsgBox "NO FILES SELECTED", vbInformation, ""
Exit Sub
End If
End With
With CreateObject("outlook.application").CreateItem(0)
.Display 
.To = Join(Application.Transpose(Range("E1:E2").Value), ";")
.Subject = "Sales Report for " & Range("b6") & ""


For i = 1 To UBound(FileArr)
.Attachments.Add FileArr(i)
Next i
.HTMLbody = "Hi " & Range("D1") & "<br><br>" & "Attached please find Sales report for " & Range("b6") & "." & "<br><br>" & "Regards" & "<br><br>" & "Howard"

.Display 'Change to Send after testing
End With
Application.ScreenUpdating = True
End Sub

 

[Michael M]

Are you talking about placing the code in here
How do you want the month and date entered ?
AND Do you want that date in "D6" ?

With Range("B6")
MsgBox ("Enter the TB extraction  month and year, for e.g. March 2020")

End With

 

[howard]

Hi Michael

I want the date to be inserted in B6 pertaining to code below

 With Range("B6")
MsgBox ("Enter the TB extraction  month and year, for e.g. March 2020")

End With

 

[Michael M]

So use this at the start of the code, imstead of your with / end with

Dim ans As Date
MsgBox ("Enter the TB extraction  month and year, for e.g. March 2020")
ans = Application.InputBox("Enter a date", "Date Required", FormatDateTime(Date, vbShortDate), Type:=1)
Range("B6").Value = ans

 

[howard]

Thanks for the advise and your code Michael. It works perfectly

 

[Michael M]

glad to help...?