Excel VisualBasic Script

Sub valueDemo2()
     OpeningStock = range("M100").value
     range("M100").value = 100
     ActiveSheet.printOut
     range("M100").value = OpeningStock
End Sub