Indent multiple Columns based on Value in One Column

Hi all:
Looking to format a BOM down-load (into Excel), so that the BOM levels are indented according to the level number.
Levels are indicated in Column C. Columns to indent would be C thru F.
Number of rows is undetermined.

Setting up the code, I have the following - although so far mostly instructions without code.
I hope the requirements are expressed clearly enough.

Please Login or Register  to view this content.

BEEJAY,
Do you have some sample data that you can post as an example of what the D/L looks like when you get it? A sample xls file with some sample data would be helpful.

I believe you can use a Select Case type of loop to do your formatting for you.
Once you select your range, you can use this to perform the indenting.

Please Login or Register  to view this content.

Try this:
Sub SetIndent()
Dim intLastRow, intIndent
intLastRow = Range("A65536").End(xlUp).Row

For Each c In Range("C2:F" & intLastRow)
intIndent = ActiveSheet.Range("C" & c.Row).Value
If intIndent > 0 Then
Select Case intIndent
Case 1
intIndent = 2
Case 2
intIndent = 4
Case 3
intIndent = 6
Case 4
intIndent = 8
Case 5
intIndent = 10
Case 6
intIndent = 12
End Select
c.InsertIndent intIndent

End If
Next c
End Sub