Thanks Mudface. here you go:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address <> "$C$7" Then Exit Sub

With Sheet3.Range("Mon")

If Target.Value = "$" Then .NumberFormat = "[$$]#,##0.00"

If Target.Value = "£" Then .NumberFormat = "[$£]#,##0.00"

If Target.Value = "EURO" Then .NumberFormat = "[$€] #,##0.00"

If Target.Value = "CHF" Then .NumberFormat = "[$CHF] #,##0.00"

End With

With Sheet5.Range("Tue")

If Target.Value = "$" Then .NumberFormat = "[$$]#,##0.00"

If Target.Value = "£" Then .NumberFormat = "[$£]#,##0.00"

If Target.Value = "EURO" Then .NumberFormat = "[$€] #,##0.00"

If Target.Value = "CHF" Then .NumberFormat = "[$CHF] #,##0.00"

End With

With Sheet7.Range("Wed")

If Target.Value = "$" Then .NumberFormat = "[$$]#,##0.00"

If Target.Value = "£" Then .NumberFormat = "[$£]#,##0.00"

If Target.Value = "EURO" Then .NumberFormat = "[$€] #,##0.00"

If Target.Value = "CHF" Then .NumberFormat = "[$CHF] #,##0.00"

End With

With Sheet9.Range("Thu")

If Target.Value = "$" Then .NumberFormat = "[$$]#,##0.00"

If Target.Value = "£" Then .NumberFormat = "[$£]#,##0.00"

If Target.Value = "EURO" Then .NumberFormat = "[$€] #,##0.00"

If Target.Value = "CHF" Then .NumberFormat = "[$CHF] #,##0.00"

End With

With Sheet11.Range("Fri")

If Target.Value = "$" Then .NumberFormat = "[$$]#,##0.00"

If Target.Value = "£" Then .NumberFormat = "[$£]#,##0.00"

If Target.Value = "EURO" Then .NumberFormat = "[$€] #,##0.00"

If Target.Value = "CHF" Then .NumberFormat = "[$CHF] #,##0.00"

End With

With Sheet13.Range("Sat")

If Target.Value = "$" Then .NumberFormat = "[$$]#,##0.00"

If Target.Value = "£" Then .NumberFormat = "[$£]#,##0.00"

If Target.Value = "EURO" Then .NumberFormat = "[$€] #,##0.00"

If Target.Value = "CHF" Then .NumberFormat = "[$CHF] #,##0.00"

End With

With Sheet15.Range("Sun")

If Target.Value = "$" Then .NumberFormat = "[$$]#,##0.00"

If Target.Value = "£" Then .NumberFormat = "[$£]#,##0.00"

If Target.Value = "EURO" Then .NumberFormat = "[$€] #,##0.00"

If Target.Value = "CHF" Then .NumberFormat = "[$CHF] #,##0.00"

End With

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address <> "$C$8" Then Exit Sub

If Target.Value = "English" Then Sheet3.Range("$A$4") = "Name &"

If Target.Value = "English" Then Sheet3.Range("$A$5") = "First Name"

If Target.Value = "English" Then Sheet3.Range("$B$4") = "Subs"

If Target.Value = "English" Then Sheet3.Range("$B$5") = "Type"

If Target.Value = "English" Then Sheet3.Range("$C$4") = "Start"

If Target.Value = "English" Then Sheet3.Range("$C$5") = "Date"

If Target.Value = "French" Then Sheet3.Range("$A$4") = "Nom et"

If Target.Value = "French" Then Sheet3.Range("$A$5") = "Prénom"

If Target.Value = "French" Then Sheet3.Range("$B$4") = "Type"

If Target.Value = "French" Then Sheet3.Range("$B$5") = "d'Abo"

If Target.Value = "French" Then Sheet3.Range("$C$4") = "Date"

If Target.Value = "French" Then Sheet3.Range("$C$5") = "Début"

If Target.Value = "German" Then Sheet3.Range("$A$4") = "Namen unt"

If Target.Value = "German" Then Sheet3.Range("$A$5") = "Vorname"

If Target.Value = "German" Then Sheet3.Range("$B$4") = "Type"

If Target.Value = "German" Then Sheet3.Range("$B$5") = "D'Abo"

If Target.Value = "German" Then Sheet3.Range("$C$1") = "Einfach"

End Sub