So I'm using this to make a menu either GB or DK - and displaying price/not price.

How do I make it so that if GB is choosen, all the
Worksheets("Mandag").Range("A17,A42,B17,B42").Value = "Kr. 8,00 pr. 100 g"
Becomes
Worksheets("Mandag").Range("A17,A42,B17,B42").Value = "Dkkr. 8,00 pr. 100 g"

Without loosing the option to remove it also


Sub GB_Click()
           If GB.Value Then
            Worksheets("Mandag").Range("A7,B7").Value = "Today's hot dish"
            Worksheets("Mandag").Range("A32,B32").Value = "Today's warm dish"
            Worksheets("Tirsdag").Range("A7,B7").Value = "Today's hot dish"
            Worksheets("Tirsdag").Range("A32,B32").Value = "Today's warm dish"
            Worksheets("Onsdag").Range("A7,B7").Value = "Today's hot dish"
            Worksheets("Onsdag").Range("A32,B32").Value = "Today's warm dish"
            Worksheets("Torsdag").Range("A7,B7").Value = "Today's hot dish"
            Worksheets("Torsdag").Range("A32,B32").Value = "Today's warm dish"
            Worksheets("Fredag").Range("A7,B7").Value = "Today's hot dish"
            Worksheets("Fredag").Range("A32,B32").Value = "Today's warm dish"
            Worksheets("Uge").Range("A2").Value = "Menu week"
            Worksheets("Uge").Range("A5").Value = "Monday"
            Worksheets("Uge").Range("A11").Value = "Tuesday"
            Worksheets("Uge").Range("A17").Value = "Wednesday"
            Worksheets("Uge").Range("A23").Value = "Thursday"
            Worksheets("Uge").Range("A29").Value = "Friday"
           Else
            Worksheets("Mandag").Range("A7,B7").Value = "Dagens varme ret"
            Worksheets("Mandag").Range("A32,B32").Value = "Dagens lune ret"
            Worksheets("Tirsdag").Range("A7,B7").Value = "Dagens varme ret"
            Worksheets("Tirsdag").Range("A32,B32").Value = "Dagens lune ret"
            Worksheets("Onsdag").Range("A7,B7").Value = "Dagens varme ret"
            Worksheets("Onsdag").Range("A32,B32").Value = "Dagens lune ret"
            Worksheets("Torsdag").Range("A7,B7").Value = "Dagens varme ret"
            Worksheets("Torsdag").Range("A32,B32").Value = "Dagens lune ret"
            Worksheets("Fredag").Range("A7,B7").Value = "Dagens varme ret"
            Worksheets("Fredag").Range("A32,B32").Value = "Dagens lune ret"
            Worksheets("Uge").Range("A2").Value = "Menu uge"
            Worksheets("Uge").Range("A5").Value = "Mandag"
            Worksheets("Uge").Range("A11").Value = "Tirsdag"
            Worksheets("Uge").Range("A17").Value = "Onsdag"
            Worksheets("Uge").Range("A23").Value = "Torsdag"
            Worksheets("Uge").Range("A29").Value = "Fredag"
           End If
    End Sub


Sub Weight_Click()
         If Weight.Value Then
            Worksheets("Mandag").Range("A17,A42,B17,B42").Value = "Kr. 8,00 pr. 100 g"
            Worksheets("Tirsdag").Range("A17,A42,B17,B42").Value = "Kr. 8,00 pr. 100 g"
            Worksheets("Onsdag").Range("A17,A42,B17,B42").Value = "Kr. 8,00 pr. 100 g"
            Worksheets("Torsdag").Range("A17,A42,B17,B42").Value = "Kr. 8,00 pr. 100 g"
            Worksheets("Fredag").Range("A17,A42,B17,B42").Value = "Kr. 8,00 pr. 100 g"
           Else
            Worksheets("Mandag").Range("A17,A42,B17,B42").Value = ""
             Worksheets("tirsdag").Range("A17,A42,B17,B42").Value = ""
             Worksheets("Onsdag").Range("A17,A42,B17,B42").Value = ""
             Worksheets("torsdag").Range("A17,A42,B17,B42").Value = ""
             Worksheets("Fredag").Range("A17,A42,B17,B42").Value = ""
           End If
    End Sub