Bold part of text that appears before special character

[Mitiraj]

Hi,

I want to bold part of the text that appears before the character (-) in column G.
I want to do this activity for all the open excel sheets.

Example
Column G (row 2) has entries like SOCCER_FOOTBALL_PLAYER - Player who plays soccer football--> I want to bold only SOCCER_FOOTBALL_PLAYER.

This has to be applied in all the rows in column G which has entries and all open excel sheets.

Appreciate can share some code as I am newbie with macros.

Thanks.

[antoka05]

You could try with this code:

Please Login or Register  to view this content.

Regards,
Antonio

[Mitiraj]

Thanks Antonio for your efforts.
I want to do this activity for all open excel sheets, so i modified the code as below
Sub Macro1()
Dim lastRow As Long, r As Long, pos As Integer
For Each wbkX In Application.Workbooks
wbkX.Activate
lastRow = .Cells(Rows.Count, "g").End(xlUp).Row
For r = 2 To lastRow
pos = InStr(.Cells(r, "g"), "-")
If pos > 0 Then
.Cells(r, "g").Characters(Start:=1, Length:=pos - 1).Font.Bold = True
End If
Next r

Next
End Sub

I am getting error Invalid or unqualified reference in line --> lastRow = .Cells(Rows.Count, "g").End(xlUp).Row. Please advise

http://www.ozgrid.com/forum/showthread.php?t=199616

[jindon]

Do you mean like this?

Please Login or Register  to view this content.

[Mitiraj]

Thanks Jindon and Antoka. It helped me to solve my problem.
Thanks again.