Format Source in VBA

[guirmaia]

Hi everyone,
I want to format my VBA code. Is any way to do it automatically ?

Example what I have:

Sub Calcular()

Application.ScreenUpdating = False

With ActiveSheet

h = .Range("F19")

If Not WorksheetFunction.IsNumber(h) Then

.Range("F19").Select

MsgBox "Altura não é um número válido.", vbInformation, "Nota"

Exit Sub

What I want:

Sub Calcular()

Application.ScreenUpdating = False

With ActiveSheet

  h = .Range("F19")

  If Not WorksheetFunction.IsNumber(h) Then

      .Range("F19").Select

      MsgBox "Altura não é um número válido.", vbInformation, "Nota"

      Exit Sub

  End If

End Sub

This is just a few rows, but for a code like 140 rows to do one by one is frustrating...

<Mod Edit: Please nest your code in code tag, using insert tool>

 

[Chihiro]

May be try find and replace.

Alternately, try something like RubberDuck.
Rubberduck - Welcome (rubberduckvba.com)

Sometimes I export code to text editor like Notepad++ and code there. Using RegEx pattern match etc

 

[Hui]

Do a google search on VBA Code Formatter

There are a number of Excel addin's that can help you do that

Here is an online version

VBA Online Code Indenter

Copy and paste your VBA code into the online editor. Press Indent and your VBA code will be cleaned and formatted.

www.automateexcel.com

 

[guirmaia]

Thank you so much for your help guys.
Have a nice day!