Insert New Row VBA Macro

[Snuffle]

Hello

I am trying to insert a new sheet row using VBA and then change the Interior.ColorIndex of specific cells in the new row.

I am using ActiveCell.Offset(1).EntireRow.Insert to insert a new row below the active cell, but I am unsure how to change the background color of specific cells in the new row.

For example:

If I inserted a new row (i.e. row 4) I would like the background color of cell A4 to be white and the background color of cell B4 and C4 to be grey.

Any help would be most appreciated!

Regards

Martin

 

[RCBricker]

Hello

I am trying to insert a new sheet row using VBA and then change the Interior.ColorIndex of specific cells in the new row.

I am using ActiveCell.Offset(1).EntireRow.Insert to insert a new row below the active cell, but I am unsure how to change the background color of specific cells in the new row.

For example:

If I inserted a new row (i.e. row 4) I would like the background color of cell A4 to be white and the background color of cell B4 and C4 to be grey.

Any help would be most appreciated!

Regards

Martin

this will do your example

ActiveSheet.Cells(4, 1).EntireRow.Insert
With ActiveSheet.Range(ActiveSheet.Cells(4, 2), activeshet.Cells(4, 3))
    .ThemeColor = xlThemeColorDark1
    .TintAndShade = -0.249977111117893
End With

The best way to do interior cell or font coloring is to record the macro.