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