No Interior Color Macro



I have this lovely code: However, I'm looking to see if I can get nofill/no
color on 2 inserted rows. Thanks

Public Sub InsertTwoRowsAfterTotal()
Dim ws As Worksheet
Dim rFound As Range
Dim sFoundFirst As String

For Each ws In ActiveWorkbook.Worksheets
With ws
If .Name <> "TRACKER" Then
With .Columns(8).Cells
Set rFound = .Find( _
What:="Remaining", _
after:=.Item(.Count), _
LookIn:=xlValues, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
Searchdirection:=xlNext, _
If Not rFound Is Nothing Then
sFoundFirst = rFound.Address
rFound.Offset(1, 0).Resize( _
2, 1).EntireRow.Insert _
Set rFound = .FindNext(after:=rFound)
Loop Until rFound.Address = sFoundFirst
Set rFound = Nothing
End If
End With
End If
End With
Next ws
End Sub


Try inserting the following code immediately after the line where you insert
the rows.

rFound.Offset(1, 0).Resize( _
2, 1).EntireRow.Interior. _
PatternColorIndex = xlColorIndexNone

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question