How to Indent Based On Corresponding Cell Value

How to indent based on corresponding cell value

Requirement:

The user trying to do some automatic formatting of a list of data to create an indented BOM structure.

The user wants to set the Indent Level for Column B by values in Column A. i.e. a value of 1 in Cell A1 indents Cell B1 by 1.

Solution:

Right click the sheet tab and paste this code in the sheet code module.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Range("A:A"), Target) Is Nothing Then
        If IsNumeric(Target.Value) Then
            If Target.Value >= 0 Then
                Target.Offset(0, 1).IndentLevel = Target.Value
            End If
        End If
    End If
End Sub

Obtained from the OzGrid Help Forum.

Solution provided by Andy Pope.