Print number of copies box

Hello Programmers!

I have this code to print a portion of a worksheet.

Sub PrintLogsheet()
'
Application.ScreenUpdating = False
Range("A1:M37").Select
Selection.PrintOut Copies:=1, Collate:=True
Range("A1").Select
Application.ScreenUpdating = True
End Sub

How do I insert code, that when I click the macro button, a box pops up asking how many copies to print? After entering the required amount, click OK, then the code continues out to print the copies.

Thanks,
EMoe