Sub M_snb()
    msgbox [text(sum(if(left(B1:B8,2)="Cl",offset(A1:A8,1,0)-A1:A8,0)),"hh:mm")]
End Sub