Object required error

[Boston_Paul]

In the following "sub", I keep getting an "object Required" error when the "with Range" code begins.

I have read other solutions, but no matter what I do, I get the same error. Any assistance would be appreciated.

Sub addmonthtotalrowcolors()

 Dim rloop As Long
 
 Windows("email tracking report.xlsm").Activate
 Worksheets("RPC Prom Output").Activate
 Worksheets("rpc prom output").Select
 
 Last_Row = Cells(Rows.Count, 1).End(xlUp).Row
 
 Range("A2").Select
 
  For rloop = 2 To Last_Row
    If Cells(rloop, 2) = "JAN" Then
      With Range(Cells(rloop, 1), Cells(rloop, 7)).Select _
        .Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -0.14996795556505
        .PatternTintAndShade = 0
      End With
    End If
  Next rloop

End Sub

 

[RoryA]

Welcome to the forum.

Remove the .Select _ part from the end of the first red line

 

[Boston_Paul]

Welcome to the forum.

Remove the .Select _ part from the end of the first red line

Thanks RoryR, worked perfectly.