How to shorten this code?

[krishna334]

This is my code in one of my macros:

If .Cells(r, 9).Interior.ColorIndex = 15 Then
.Cells(r, 3).ClearContents
.Cells(r, 4).ClearContents
.Cells(r, 5).ClearContents
.Cells(r, 6).ClearContents
.Cells(r, 7).ClearContents
.Cells(r, 8).ClearContents
End If

I hope it can be shortened...but how?

 

[VoG]

Try

If .Cells(r, 9).Interior.ColorIndex = 15 Then
    .Range(.Cells(r, 3), .Cells(r, 8)).ClearContents
End If

 

[krishna334]

Thanks VOG