How do I indent text?

Rochelle McCull

Text currently looks like this:

Sub Main 'Start Sub Routine
Call Noise ' Call Beep
MsgBox "Returns a Beep" ' Message box
End Sub ' End subroutine
Sub Noise ' Start of routine
Dim lAnswer As Long ' Declare long Reply
Dim vMsg As Variant ' Declare variables.
Do ' Control structure
lAnswer = InputBox("Enter a value from 1 to 3.")
If (lAnswer >= 1 And lAnswer <= 3) Then ' Check range.
Exit Do ' Exit Do...Loop.
Else ' Error
Beep ' Beep eror.
End If ' End Construct
Loop ' Loop
MsgBox "You entered a value in the proper range."
End Sub ' End of Routine
' End of XCM

How can I indent the text, so it looks like the below:

Sub Main 'Start Sub Routine

Call Noise ' Call Beep

MsgBox "Returns a Beep" ' Message box

End Sub ' End subroutine

Sub Noise ' Start of routine

Dim lAnswer As Long ' Declare long Reply

Dim vMsg As Variant ' Declare variables.

Do ' Control structure

lAnswer = InputBox("Enter a value from 1 to 3.")

If (lAnswer >= 1 And lAnswer <= 3) Then ' Check range.

Exit Do ' Exit Do...Loop.

Else ' Error

Beep ' Beep eror.

End If ' End Construct

Loop ' Loop

MsgBox "You entered a value in the proper range."

End Sub ' End of Routine

' End of XCM

David Dube

To indent general text, you can use the Indent User Macro. Default is set to one level of indent, but you can specify however many levels that you want/need.

Dave