Form som viser en vaerdi imens et loop koere igennem

Jeg haaber der er en der kan hjaelpe mig, jeg forsoger at bruge en form som viser raekke vaerdien imens den kore igennem.

Saa naar den tjekker raekke 2 saa viser den 2 i form, naar raekke 3 tjekken osv.

Min kode er :

Sub UnileverLateContactRequest()

  For Each rw In Worksheets("Sheet1").Cells(1, 1).CurrentRegion.Rows
taeller = taeller + 1
  Next

  For Each rw In Worksheets("Sheet2").Cells(1, 1).CurrentRegion.Rows
SCtaeller = SCtaeller + 1
  Next
SCValue = 2
test = "Incorrect"
For removeunwanted = 2 To taeller
 
  CountRowFrm.Show
  CountRowFrm.Hide
  For SCContact = 2 To SCtaeller
 
  If Worksheets("Sheet1").Cells(removeunwanted, 1).Value = Worksheets("Sheet2").Cells(SCContact, 8).Value Then
    Worksheets("Sheet1").Cells(removeunwanted, 29).Value = "Bingo"
    test = "correct"
  End If
  Next
Next
MsgBox (test)
End Sub

Glaeder mig til at hoere fra nogen