Hello All,
I have following code that works alright.
Sub Ladder()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Dim dt As Date
Worksheets("Ticket Sales Ladder - Daily").Activate
pw = InputBox("Please enter passowrd to run this code")...