Using Replace to Replace Formatting : Replace « Forms « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Forms
3. Replace

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 

 

Related examples in the same category