macro

Hej jeg har en excel ark med ca 500 personer disse personer er frivilie medhjælper til et marked, første gang de møde på vagt for de en trøje udleveret, men de kan være på vagt mange gange i løbet af de dage, men de skal kun have en  hver

jeg har en macro som kan finde folk og der efter give cellen en farve, kan man lave så den skriver 1.st gang at det er ok at udlever og derefter at der er udleveret en.

denne macro bruger jeg nu

Public Sub Find()
    Dim Svar As String, firstAddress As String, C As Range
    [A1].Activate
    Svar = InputBox("Søg efter", "Søg")
    With ActiveSheet.Cells
        .Find(What:=Svar, After:=ActiveCell, LookIn:=xlFormulas, _
              LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
              MatchCase:=False, SearchFormat:=False).Select
        firstAddress = Selection.Address
        If MsgBox("Vil du vælge denne", vbYesNo, "Vælg") = vbYes Then
            Farve Selection
            Exit Sub
        End If
        Do
            .FindNext(After:=ActiveCell).Select
            If Selection.Address = firstAddress Then Exit Do
            If MsgBox("Vil du vælge denne", vbYesNo, "Vælg") = vbYes Then
                Farve Selection
                Exit Sub
            End If
        Loop While Selection.Address <> firstAddress
    End With

End Sub

Public Sub Farve(Rng As Range)
With Rng.Font
        .Color = -11489280
    .TintAndShade = 0
    End With
End Sub