This article has not been completed yet. However, it may already contain helpful information and therefore it has been published at this stage. Sub helloWorld() MsgBox ("Hello World!") End SubSub helloWorldtoCell() Sheets("Sheet1").Select Cells(1, 1).Value = "Hello World!" End SubExtended HelloWorld-App: The