Makro til at skifte valuta

Følgende kode (Ark1) er tidligere udformet til omregning mellem kr og euro - du er velkommen til at få hele filen - send en mail til pb@supertekst-it.dk
-----

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

????

Undskyld supertekst, at jeg ikke har svaret før. Jeg havde helt svedt det ud. Jeg prøver at arbejde lidt videre med det. Jeg laver en ny tråd, hvis jeg skal have mere hjælp på et tidspunkt.

Smid et svar, så du kan få dine point.

Ok - her et svar...