Nem a kérdésedre válaszolok, de arra, hogy a felhasználó "ne unatkozzon", van egy másik mód is, mint az msgbox.

Kiírathatod a státuszsorba a program pillanatnyi állását, vagy bármilyen más szöveget.

    For sor = 1 To sorok
        adat1 = adat1 = Sheets(aktlapnév).Cells(sor, oszlop)
        adat2 = adat2 = Workbooks(ellfile).Sheets(aktlapnév).Cells(sor, oszlop)
        If adat1 <> adat2 Then
            Application.StatusBar = Str(sor) + ". sor, " + oszlopnév(oszlop) + ". oszlop eltér!"
        End If
    Next
    Application.StatusBar = False

Az utolsó sor visszaállítja a státuszsor eredeti beállítását.