Hi all,
I've got a working code, it is the following:
Sub change_title()
Dim i As Integer
i = 2
Dim title_counter As Integer
title_counter = 0
Do
i = i + 1
If Cells(i, 7).Interior.ColorIndex = 6 Then title_counter = title_counter + 1
Loop Until Cells(i...