Hi,
Have the following code:
Above code works without error, the only thing it doesn't do is change background color of cells B - P on row r to vbYellow, Why?
Thanks for your help
David
Have the following code:
Code:
Private Sub CommandButton1_Click()
Dim r As Integer
Dim c As Integer
Dim rng As Range
r = ActiveCell.Row + 1
Rows(r).Insert shift:=xlShiftDown
ActiveSheet.Cells(r, 1).Value = vbCrLf & "New " & vbCrLf & "Row" & vbCrLf
Set rng = Range(Cells(r, 2), Cells(r, 15))
For Each cell In rng
cell.Interior.Color = vbYellow
Next cell
Unload Me
UserForm8.Show
End Sub
Above code works without error, the only thing it doesn't do is change background color of cells B - P on row r to vbYellow, Why?
Thanks for your help
David