Sully1440
02-28-2018, 01:23 PM
Hi All,
I'm having some difficulties with timed message boxes, adding a shape to highlight a cell, and then continuing on with the next timed message box. It sorta works but it doesn't delete the shape until the code reaches the end of the message boxes. I want it to delete the shape called "Highlight" before it moves on to the next message box.
Sub Instructions_2()
CreateObject("WScript.Shell").Popup "Select the 'Clear Data' Button to clear data in the chart below", 4, "STEP 1"
CreateObject("WScript.Shell").Popup "Select the 'Get Data' Button to retrieve the data from the first tab", 4, "STEP 2"
CreateObject("WScript.Shell").Popup "Please make sure your Start Dates are updated", 4, "STEP 3"
'Application.ScreenUpdating = False
Sheets("Instruction Graphics").Select
ActiveSheet.Shapes.Range(Array("Highlight")).Select
Selection.Copy
Sheets("Sheet1").Select
Range("I8").Select
ActiveSheet.Paste
Range("A1").Select
'Application.ScreenUpdating = True
CreateObject("WScript.Shell").Popup "Dummy Percentages were applied. Please make sure your Percentages are updated", 4, "STEP 4"
ActiveSheet.Shapes("Highlight").Delete
CreateObject("WScript.Shell").Popup "Move this slider back and forth to review your results", 4, "STEP 5"
End Sub
Any suggestions would be very helpful...
Thanks,
Jim
I'm having some difficulties with timed message boxes, adding a shape to highlight a cell, and then continuing on with the next timed message box. It sorta works but it doesn't delete the shape until the code reaches the end of the message boxes. I want it to delete the shape called "Highlight" before it moves on to the next message box.
Sub Instructions_2()
CreateObject("WScript.Shell").Popup "Select the 'Clear Data' Button to clear data in the chart below", 4, "STEP 1"
CreateObject("WScript.Shell").Popup "Select the 'Get Data' Button to retrieve the data from the first tab", 4, "STEP 2"
CreateObject("WScript.Shell").Popup "Please make sure your Start Dates are updated", 4, "STEP 3"
'Application.ScreenUpdating = False
Sheets("Instruction Graphics").Select
ActiveSheet.Shapes.Range(Array("Highlight")).Select
Selection.Copy
Sheets("Sheet1").Select
Range("I8").Select
ActiveSheet.Paste
Range("A1").Select
'Application.ScreenUpdating = True
CreateObject("WScript.Shell").Popup "Dummy Percentages were applied. Please make sure your Percentages are updated", 4, "STEP 4"
ActiveSheet.Shapes("Highlight").Delete
CreateObject("WScript.Shell").Popup "Move this slider back and forth to review your results", 4, "STEP 5"
End Sub
Any suggestions would be very helpful...
Thanks,
Jim