To shorten lengthy if condition

[gan_xl]

Please help me to shorten this lengthy condition. Is there any way to write this code simpler?

If sheets("Filter").cells(5009,428).value="True" AND sheets("Filter").cells(5010,428).value="True" AND sheets("Filter").cells(5011,428).value="True" AND sheets("Filter").cells(5012,428).value="True" AND sheets("Filter").cells(5013,428).value="True" AND sheets("Filter").cells(5014,428).value="True" AND sheets("Filter").cells(5015,428).value="True" Then

Thanks

[zbor]

Try

If WorksheetFunction.CountIf(sheets("Filter").Range(sheets("Filter").cells(5009,428), sheets("Filter").cells(5015,428)), True) = 7 Then

[gan_xl]

Thanks zbor, much better than my code. However expected even simpler , I think it is not possible.

Anyway thanks again. I will use your code.

[gan_xl]

Zbor,

it throws an error 'Subscript out of range'.

edited your code like below but it too not works.

If WorksheetFunction.CountIf(Sheets("Filter").Range("PL5009:PL5015"), True) = 7 Then