Lae
24-03-2010, 10:03 PM
Hey all, basically I want to create a Reset macro that clears the contents of certain cells, but also resets the combo boxes to "Please Select". Here's some visual aid :)
http://img31.imageshack.us/img31/3402/paintclear.png
Here's the code I'm using now, pretty basic. Really appreciate it if anyone can help :)
Sub Reset()
'
' Reset Macro
'
'
' Keyboard Shortcut: Ctrl+z
'
Range("E8").Select
Selection.ClearContents
Range("E9").Select
Selection.ClearContents
Range("E10").Select
Selection.ClearContents
Range("E11").Select
Selection.ClearContents
Range("E12").Select
Selection.ClearContents
Range("E13").Select
Selection.ClearContents
Range("E14").Select
Selection.ClearContents
Range("E15").Select
Selection.ClearContents
Range("E16").Select
Selection.ClearContents
Range("E17").Select
Selection.ClearContents
Range("E18").Select
Selection.ClearContents
Range("E19").Select
Selection.ClearContents
Range("E20").Select
Selection.ClearContents
Range("E21").Select
Selection.ClearContents
Range("H12").Select
Selection.ClearContents
Range("I6").Select
Selection.ClearContents
Range("I7").Select
Selection.ClearContents
Range("I8").Select
Selection.ClearContents
Range("I4").Select
Selection.ClearContents
Range("C3").Select
End Sub
http://img31.imageshack.us/img31/3402/paintclear.png
Here's the code I'm using now, pretty basic. Really appreciate it if anyone can help :)
Sub Reset()
'
' Reset Macro
'
'
' Keyboard Shortcut: Ctrl+z
'
Range("E8").Select
Selection.ClearContents
Range("E9").Select
Selection.ClearContents
Range("E10").Select
Selection.ClearContents
Range("E11").Select
Selection.ClearContents
Range("E12").Select
Selection.ClearContents
Range("E13").Select
Selection.ClearContents
Range("E14").Select
Selection.ClearContents
Range("E15").Select
Selection.ClearContents
Range("E16").Select
Selection.ClearContents
Range("E17").Select
Selection.ClearContents
Range("E18").Select
Selection.ClearContents
Range("E19").Select
Selection.ClearContents
Range("E20").Select
Selection.ClearContents
Range("E21").Select
Selection.ClearContents
Range("H12").Select
Selection.ClearContents
Range("I6").Select
Selection.ClearContents
Range("I7").Select
Selection.ClearContents
Range("I8").Select
Selection.ClearContents
Range("I4").Select
Selection.ClearContents
Range("C3").Select
End Sub