Use the Application property to return the Application object. The following example applies the Windows property to the Application object.
The following example creates an Excel workbook object in another application and then opens a workbook in Excel.
Set xl = CreateObject(“Excel.Sheet”)
Many of the properties and methods that return the most common user-interface objects, such as the active cell (ActiveCell property), can be used without the Application object qualifier. For example, instead of writing:
Application.ActiveCell.Font.Bold = True
You can write:
ActiveCell.Font.Bold = True
‘Set up the variables.
Dim rng As Range
‘Use the InputBox dialog to set the range for MyFunction, with some simple error handling.
Set rng = Application.InputBox(“Range:”, Type:=8)
If rng.Cells.Count <> 3 Then
MsgBox “Length, width and height are needed -” & _
vbLf & “please select three cells!”
‘Call MyFunction by value using the active cell.
ActiveCell.Value = MyFunction(rng)
Function MyFunction(rng As Range) As Double
MyFunction = rng(1) * rng(2) * rng(3)