Can I code Styles

[Wired Hosting News]

If I run into a situaton where I have an addin formatting cells to a
particular style:

ws.Column("D").style = "Currency"

and the workbook that is active at the time does not have that style, is it
possible to code the workbook or add the style to the workbook, prior to
running the rest of the macro?

 

[Jim Rech]

Why don't you record a macro as you create a style manually to see how it is
done?

--
Jim
| If I run into a situaton where I have an addin formatting cells to a
| particular style:
|
| ws.Column("D").style = "Currency"
|
| and the workbook that is active at the time does not have that style, is
it
| possible to code the workbook or add the style to the workbook, prior to
| running the rest of the macro?
|
|

 

[Dave Peterson]

You can test for it first and then rebuild it using those recorded statements:

Option Explicit
Sub testme()

Dim myStyle As Style

Set myStyle = Nothing
On Error Resume Next
Set myStyle = ActiveWorkbook.Styles("Currency")
On Error GoTo 0

If myStyle Is Nothing Then
'use your recorded code here to add the style
Else
'it's already there, do nothing special
End If

End Sub