View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
BeSmart BeSmart is offline
external usenet poster
 
Posts: 102
Default Find cells without multiple spacebars and format...

(Re-posting. Sorry - I posted it in the Excel General section accidentally)

Hi all (warning novice approaching)....

I'm writing VBE code and I want to find cells in column A where the text
entered does not start with 5 spacebars eg:

Alligators aren't always aggressive...
Blue bulls blow big...

Great grapes grow ....
Pink pigs put purple....

In the above example I need the code to pick up the "The quick brown
Fox...." row and the "Great grapes grow..." row and make them bold. The
"Blue Bulls" row and the "Pink pigs" row stay unbold.

I've tried the following code but it makes all active cells bold..
What am I doing wrong? Any help would be greatly appreciated.

.......

Dim i
For i = 1 To Cells(Rows.Count, "a").End(xlUp).Row
If Cells(i, "a").Value < " *" Then
Cells(i, "a").Font.FontStyle = "Bold"
End If
Next



Thank for your help
BeSmart