Forms VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Forms
  4. Using Replace to Replace Formatting
Sub ReplaceFormats() 
    ' set formatting to look for 
    With Application.FindFormat 
        .Font.Bold = True 
        .Font.Size = 11 
    End With 
    ' set formatting that should be applied instead 
    With Application.ReplaceFormat 
        .Font.Bold = False 
        .Font.Italic = True 
        .Font.Size = 8 
    End With 
    ActiveSheet.Cells.Replace What:="", Replacement:="", _ 
        SearchFormat:=True, ReplaceFormat:=True 
End Sub