Proper syntax to shorten and speed up code

[Mitchy123]

Hi guys,

Mitch here! really hoping to get some help with an extremely simple piece of coding.

I am fairly new to this as you can probably tell from my poor first attempt at the coding. Its extremely simple, and just requires certain data to show when specific a option is chosen from a choice of option tabs/buttons.

Due to the length of the code, it is very slow. I have tried all different methods of shortening the code but to no avail!

Any help on this would be very welcome.

coding is as follows and is fairly laughable compared to the level I have seen on here!

If OptionButton1 = True Then
Worksheets("Background").Range("C56") = ("April")
Worksheets("Background").Range("B60") = Worksheets("Background").Range("B3")
Worksheets("Background").Range("B61") = Worksheets("Background").Range("B4")
Worksheets("Background").Range("B62") = Worksheets("Background").Range("B5")
Worksheets("Background").Range("B63") = Worksheets("Background").Range("B6")
Worksheets("Background").Range("B64") = Worksheets("Background").Range("B7")
Worksheets("Background").Range("B65") = Worksheets("Background").Range("B8")
Worksheets("Background").Range("B66") = Worksheets("Background").Range("B9")
Worksheets("Background").Range("B67") = Worksheets("Background").Range("B10")
Worksheets("Background").Range("B68") = Worksheets("Background").Range("B11")
Worksheets("Background").Range("B69") = Worksheets("Background").Range("B12")
Worksheets("Background").Range("B70") = Worksheets("Background").Range("B13")

This carries on approx. 20 more lines for another 2 option buttons hence the slow update when choosing the options...

I have tried entering the range as "B60:B70" but the sheet doesn't react and update the data.

I have also tried 'Dim' but due to my rookie level can't seem to get it to work.

As I have mentioned, I would love some sort of help!

Perhaps some day I will be giving advice on here but at the moment, this seems unlikely!



Thank you in advance...

Mitch