Pessoal, boa noite.

Tenho um form que é um registro de serviços prestados, aonde tem as labels que dizem o nome do serviço e ao lado de cada uma delas tem uma checkbox para ser flegada quando o serviço é prestado e depois uma textbox pra trazer o valor do serviço.

O que estou tentando fazer é:

Se a checkbox for flegada, buscar o serviço que esta na label correspondente (em uma aba especifica aonde estão os serviços cadastrados na coluna A e os preços na coluna B, iniciando na linha 5). Para o primeiro checkbox funciona pq o serviço o primeiro da lista, mas para a demais não esta correndo a relação. Me bati na tentativa de fazer o loop.

Segue o código usado:

Private Sub CheckBox3_Click()
x = 5

If CheckBox3.Value = True Then


If Label8.Caption = ThisWorkbook.Worksheets("Cadastro de Serviço").Range("A" & x).Value Then
    TextBox9.Value = ThisWorkbook.Worksheets("Cadastro de Serviço").Range("D" & x).Value
    Else
    x = x + 1
End If
End If

End Sub

-----------
preciso adicionar um loop a esse codigo para que ele varra toda a aba dos serviços ate achar.

Desde já obrigado.