I will. Thanks Sheeloo.

"Sheeloo" wrote:

Hello Lerner,

I had given you a similar solution (copied below) to your yesterday's post
and provided clarification requested by you but you did not respond to that...

Pl. avoid doing this in future...

Code;
Sub highlight()
Dim lastRow, lastCol As Double
Dim pName As String
Dim flg As Boolean

With ActiveSheet
lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
lastCol = .Cells(.Columns.Count, "A").End(xlToLeft).Column
End With

pName = ""
flg = True

For i = 2 To lastRow

If pName < Left(Cells(i, 1).Value, 1) Then
pName = Left(Cells(i, 1).Value, 1)
If flg = True Then
flg = False
Else
flg = True
End If

End If

If flg = True Then
'format

With Cells(i, 1).Characters(Start:=1, Length:=1).Font
.FontStyle = "Bold"
End With
With Cells(i, 1).Characters(Start:=2, Length:=255).Font
.FontStyle = "Regualar"
End With

End If

Next

End Sub

Your question which I had answered but ...
Eventough I don't like MACROS, if nothing else will help then:
Where or how I do the pasting of this macro.
I tried right clicking in the SHEET TAB going to VIEW and pasted it there
but did not do anything.
Thanks.


"Lerner" wrote:

Thanks Gary, for going with the extra effort and detailed explanation
in order to help me, I really appreciate your time.
Not meaning to be a pain, but this means Conditional Formatting
won't be able to do it ?
Thank you again.

"Gary''s Student" wrote:

This assumes that the names are stored in column A starting with A1. Enter
run run the following macro:

Sub boldAlternator()
Dim n As Long, FlipFlop As Boolean
n = Cells(Rows.Count, 1).End(xlUp).Row
Cells(1, 1).Font.Bold = True
FlipFlop = True
For i = 2 To n
If Left(Cells(i, 1).Value, 1) = Left(Cells(i - 1, 1).Value, 1) Then
Else
FlipFlop = Not FlipFlop
End If
Cells(i, 1).Font.Bold = FlipFlop
Next
End Sub

Suppose we start with data like:

Adams, Raymond
Allen, Timothy
Anderson, Christopher
Baker, Gregory
Brown, William
Campbell, Henry
Carter, Dennis
Clark, Ronald
Collins, Roger
Davis, David
Edwards, Ryan
Evans, Arthur
Garcia, Steven
Gonzalez, Joshua
Green, Andrew
Hall, Gary
Harris, Donald
Hernandez, Larry
Hill, Eric
Jackson, Paul
Johnson, John
Jones, Michael
King, Jeffrey
Lee, Jason
Lewis, Kevin
Lopez, Scott
Martin, George
Martinez, Edward
Miller, Richard
Mitchell, Walter
Moore, Joseph
Nelson, Jerry
Parker, Carl
Perez, Patrick
Phillips, Douglas
Roberts, Peter
Robinson, Brian
Rodriguez, Anthony
Scott, Stephen
Smith, James
Taylor, Thomas
Thomas, Daniel
Thompson, Kenneth
Turner, Harold
Walker, Matthew
White, Mark
Williams, Robert
Wilson, Charles
Wright, Frank
Young, Jose


The following name will be Bold, the other not:

Adams, Raymond
Allen, Timothy
Anderson, Christopher
Campbell, Henry
Carter, Dennis
Clark, Ronald
Collins, Roger
Edwards, Ryan
Evans, Arthur
Hall, Gary
Harris, Donald
Hernandez, Larry
Hill, Eric
King, Jeffrey
Martin, George
Martinez, Edward
Miller, Richard
Mitchell, Walter
Moore, Joseph
Parker, Carl
Perez, Patrick
Phillips, Douglas
Scott, Stephen
Smith, James
Walker, Matthew
White, Mark
Williams, Robert
Wilson, Charles
Wright, Frank

--
Gary''s Student - gsnu200835


"Lerner" wrote:

All items beggining with A BOLD
Last name and Fist name BOLD (full name)as they are in the same cell.
THANKS Gary.
"Gary''s Student" wrote:

Do you want all of the items beginning with "A" to be bold or only the first
item?
Do you want only the lastname to be bold or the fullname?
--
Gary''s Student - gsnu200835


"Lerner" wrote:

Actually none of them had work.
A B C

1 NAMES

2 ARIES, JOHN

3 ACTUAL, JANE

4 CONSECUTIVE, MIKE

5 EXCEL, MICROSOFT

6 EVEREST, TRISIA

7 HINGS, PAULA

Basically the thing is get the first one ( last name with A) BOLD and then
alternating with the list (not bold, bold, not bold, bold) regardless of the
missing secuency as in this case it will be ABOLD, Cnot bold, E bold,
H not bold.
I'd rather use conditional formatting than MACROS.
Thanks.