How can I automatically unbold some of the text in a table?

[Dicksonk]

Hi there - I am a real novice at VBA. I have an Excel table with names of books in a cell a long with the author and are entered as such e.g. "To Kill a Mocking Bird" - Harper Lee

I would like to be able to have the dash as well as the text that follows to be normal text "To Kill a Mocking Bird" - Harper Lee. Can this be done?

Thanks
Dickson

 

[Fluff]

Hi & welcome to MrExcel.
How about

Sub Dicksonk()
   Dim Cl As Range
   Dim x As Long
   
   For Each Cl In Range("F2", Range("F" & Rows.Count).End(xlUp))
      x = InStr(1, Cl.Value, "-", 1)
      If x > 0 Then Cl.Characters(x, Len(Cl.Value)).Font.Bold = False
   Next Cl
End Sub

Change the range to suit.

 

[Dicksonk]

Thanks I have tried it, but I am so new to this that it only changed one cell. I guess I have a lot to learn. Does the C1 in the above code refer cell c1? and in the second line "Dim C1 as Range" if my data is sitting in column F (row 5-150) would I change that all the C1 to F? Also, I tried to change it, but I am getting and Invalid Next control variable reference.

Sub Dicksonktest()
Dim C1 As Range
Dim x As Long

For Each C1 In Range("F5:F100", Range("F" & Rows.Count).End(xlUp))
x = InStr(1, Cl.Value, "-", 1)
If x > 0 Then Cl.Characters(x, Len(Cl.Value)).Font.Bold = False
Next Cl

End Sub

Thanks for your assistance.

 

[Fluff]

Rather than retyping the code, it is best to just copy/paste it. That way won't make any typos.
The C1 should be Cl (lower case L)

 

[Dicksonk]

Thank you - I worked out why it didn't work. It is because I had concatenated cells within the range.

 

[Fluff]

Glad you sorted it & thanks for the feedback.