هو هو الى حضرتك عملتو مفيش اى تغيير وعايزو يعملها على كل الشيتات الموجوده فى الملف انا مغيرتش اى حاجه فى الكود
Sub talween()
For x = 1 To Sheets.Count
With Sheets(x)
ro = .Cells(Rows.Count, "O").End(3).Row
.Range("a1:o" & ro).ClearFormats
For Each cell In .Range("o1:O" & ro)
If IsNumeric(cell) And cell.Value < 0 Then
cell.Offset(0, -14).Resize(1, 15).Interior.ColorIndex = 3
End If
Next
End With
Next
End Sub