Styles

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
            objStyle.Delete
         End If
      End If
   Next objStyle
End Sub


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