Macro to Change Balloon Formating on all sheetsI

Option Explicit

Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swDraw As SldWorks.DrawingDoc
Dim vSheetName As Variant
Dim i As Integer
Dim bRet As Boolean

Sub main()

Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swDraw = swModel

' Get the sheets in the drawing document
vSheetName = swDraw.GetSheetNames

' Traverse the drawing sheets 
For i = 0 To UBound(vSheetName)
   bRet = swDraw.ActivateSheet(vSheetName(i))
' Your balloon codes here  
Next i

End Sub