Why not post the workbook so we can help you directly with that, in the meantime here's a shortened version of your code.[VBA]Sub Run()
Dim Multi As Range
Set Multi = Range("D3400")
For Each oRow In Multi

Sheet1.Activate

If oRow = LCase("N") Then

oRow.Offset(0, 1) = ""
Multi.Offset(0, 1).Interior.ColorIndex = 15
oRow.Offset(0, 2) = ""
Multi.Offset(0, 2).Interior.ColorIndex = 15
oRow.Offset(0, 3) = ""
Multi.Offset(0, 3).Interior.ColorIndex = 15

ElseIf oRow = LCase("Y") Then

Sheet2.Activate

If oRow = LCase("Y") And oRow.Offset(0, 1) = "Y" And _
oRow.Offset(0, 2) = LCase("Y") And oRow.Offset(0, 3) = LCase("Y") And _
oRow.Offset(0, 4) = LCase("Y") And oRow.Offset(0, 5) = LCase("Y") And _
oRow.Offset(0, 6) = LCase("Y") And oRow.Offset(0, 7) = LCase("Y") Then

Sheet1.Activate

oRow.Offset(0, 1) = LCase("Y")
End If
End If
Next oRow

End Sub[/VBA]