A simple droplist to change text atributes

[Theo6772]

The title says the most. I want to make a form to be printed or send by e-mail. It's digital succession of a paper form. The user must strike out three out of four words. This to be achieved bij choosing the correct word shown in a ListBox.
I'm a first time user on VBA and so I get very confused of the masses of samples I have found on so many places.
I would really appreciate the help.
Thanks in advance!

 

[PeteWright]

You have to download the file to your computer and open it with Excel.
Excel on OneDrive doesn't support VBA/Macros.

 

[PeteWright]

If you provide me your e-mail address, I can send you the file.

I don't like to post my mail address in public, but you can contact me via this simple form and I will answer you, so you can reply and send me the file as attachment.

 

[Theo6772]

Wow! This works nice! And I can even secure the worksheet. Thank you!

 

[PeteWright]

Wow! This works nice! And I can even secure the worksheet. Thank you!

You're welcome!

One more thing. You can remove the following line. It does nothing at all. It's a leftover from my coding. Sorry about that.

        Dim T As Range

So the code should look like this afterwards:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Select Case Target.Address
        Case Range("B5").Address
            Call str("B5")
        Case Range("D5").Address
            Call str("D5")
        Case Range("F5").Address
            Call str("F5")
                Case Range("H5").Address
            Call str("H5")
    End Select
End Sub
Public Sub str(ByVal S As String)
        If Range(S).Font.Strikethrough = True Then
            Range(S).Font.Strikethrough = False
        Else
            Range(S).Font.Strikethrough = True
        End If
End Sub