Macro that will clear contents of cell based on format of text in adjacent cell

**VBA Noob** · 02-18-2009, 05:24 PM

Maybe

Dim Rng As Range
Set Rng = Range("A1:A6")
    
    For Each cl In Rng
        With cl
            If .Offset(0, 1).Font.FontStyle = "Bold" Then
                .ClearContents
            End If
        End With
    Next cl

VBA Noob

**judasdac** · 02-18-2009, 05:53 PM

That did the trick!!! Thanks!

**hemaveera** · 05-11-2012, 08:33 PM

Please tell me how to Move the cell value to adjacent cell based on indent or bold formatting rather than deleting, also need to insert a new row if two adjacent cells are in bold thanks in advance