Hi! I have a workbook with 3 worksheets in it. the 3rd sheet, called PRACTICEVERSION is just that, a sheet to practice the steps of the course. FYI, sheet 1 is the actua "form" that users will keep their records on. Sheet 2 is all text and gives them the Directions as to what to put in each cell. Sheet 3 (PracticeVersion) is an exact copy of the "Master", ie Sheet 1. If youre going to practice, make mistakes, etc., do so on the PracticeVersion. I wrote a macro to clear/delete any/all "student-input" data while retaining the formulas. But, unfortunately, if they happen to execute the macro on the REAL, MASTER sheet (Sheet 1) it deletes all of the data on THAT sheet, too! NOT a god thing! So, my question is, on the Macro below, how do I SPECIFY that executing the macro ONLY works if you are on the PRACTICEVERSION sheet and NOT if you are on the Master, REAL sheet?
Sub ClearingWF_PracticeVersion()
'
' ClearingWF_PracticeVersion Macro
'
Range("B2:B3").Select
Selection.ClearContents
Range("D15:D16").Select
Selection.ClearContents
Range("E15:E16").Select
Selection.ClearContents
Range("E18").Select
Selection.ClearContents
Range("L15:L16").Select
Selection.ClearContents
Range("L19:L20").Select
Selection.ClearContents
Range("M15:M16").Select
Selection.ClearContents
ActiveWorkbook.Save
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("B2").Select
ActiveWorkbook.Save
End Sub
Thank you!
Sub ClearingWF_PracticeVersion()
'
' ClearingWF_PracticeVersion Macro
'
Range("B2:B3").Select
Selection.ClearContents
Range("D15:D16").Select
Selection.ClearContents
Range("E15:E16").Select
Selection.ClearContents
Range("E18").Select
Selection.ClearContents
Range("L15:L16").Select
Selection.ClearContents
Range("L19:L20").Select
Selection.ClearContents
Range("M15:M16").Select
Selection.ClearContents
ActiveWorkbook.Save
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("B2").Select
ActiveWorkbook.Save
End Sub
Thank you!