My first VBA - Project in Excel

by Thomas Bründl

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 Sub
Sub helloWorldtoCell()
Sheets("Sheet1").Select
Cells(1, 1).Value = "Hello World!"
End Sub

Extended   HelloWorld-App:

The app inserts "Hello World1!" and "Hello World2!" into two different worksheets and pauses for 5 seconds in between.

Sub helloWorldtoCellExtended()
Sheets("Sheet1").Select
Cells(1, 1).Value = "Hello World1!"
If Application.Wait(Now + TimeValue("0:00:5")) Then
Sheets("Sheet2").Select
Cells(1, 1).Value = "Hello World2!"
End If
End Sub