omregning af DKK og EURO

Her er en model:
Ellers senden mail til: pb@supertekst-it.dk - så sender jeg filen


Dim Antræk, Antkol, euroKurs
Private Sub CheckBox1_Click()          'kontrolelement
    omregning
End Sub
Sub omregning()
Dim cFormat, cIndhold
    Antræk = ActiveCell.SpecialCells(xlLastCell).Row
    Antkol = ActiveCell.SpecialCells(xlLastCell).Column
   
    For ræk = 1 To Antræk
        For kol = 1 To Antkol
            cFormat = Cells(ræk, kol).NumberFormat
            cIndhold = Cells(ræk, kol)
            If InStr(cFormat, "$") > 0 And cIndhold <> "" Then
                omRegn ræk, kol
            End If
        Next kol
    Next ræk
End Sub
Private Sub omRegn(r, k)
Dim beløb, kurs, kr, euro
    kurs = Cells(1, 7)              'eurokurs I G1
    beløb = Cells(r, k)
   
    If CheckBox1.Value = True Then
Rem omregn til Euro
        euro = beløb / kurs * 100
        Cells(r, k).Select
        ActiveCell = euro
        visEuro
    Else
Rem omregning til kr
        beløb = Cells(r, k)
        kr = beløb * kurs / 100
        Cells(r, k).Select
        ActiveCell = kr
        visDkr
    End If
End Sub
Private Sub visEuro()
    Selection.NumberFormat = "[$€-2] #,##0.00"
End Sub
Private Sub visDkr()
    Selection.NumberFormat = "[$kr-2] #,##0.00"
End Sub

???