Progressbar in Macro einfügen

Sub Daten()
Dim var As Variant
Dim iRow As Integer
iRow = 2
Do Until IsEmpty(Cells(iRow, 1))
var = Application.Match(Cells(iRow, 3).Value, _
Worksheets("Legende").Columns(2), 0)
If Not IsError(var) Then
Cells(iRow, 3).Value = _
Worksheets("Legende").Cells.Cells(var, 1).Value
End If
iRow = iRow + 1
Loop
End Sub