Styles apply to a single workbook and cannot be easily transferred to other workbooks.
Selection.Style = "Normal"
ActiveWorkbook.Styles.Add(Name:="your style name")
ActiveWorkBook.Styles("your style name").Font.Name = "Arial"
Public Sub DeleteStyles
Dim objType As Style
Dim iReturn As Integer
For Each objStyle In ActiveWorkbook.Styles
If (objStyle.BuiltIn = False) Then
iReturn = MsgBox("Do you want to delete this style: " & objStyle.Name & " ?",vbYesNo)
If (iReturn = vbYes) Then
Merging Styles ??
Copy in worksheets that have a Normal style
New / More / Additional styles are added !!!
© 2020 Better Solutions Limited. All Rights Reserved. © 2020 Better Solutions Limited TopPrevNext