Font question

[verluc]

I have a sheet who I want the column A make bold.See the following macro I wrote:
With Cells(10, 1).Font
.Name = "Arial"
.Size = 10
.FontStyle = "Bold"
End With

In this macro only the cell of row 10 change in bold.I want to have all the cells in column A change in bold,but I don't know in advance ho many rows there are.It is variable.

Anyone a solution on this.
Many thanks

[Mark O'Brien]

Is something like this any good to you?

With ActiveSheet.UsedRange.Columns("A").Font

.Name = "Arial"

.Size = 10

.FontStyle = "Bold"

End With

[verluc]

On 2002-04-22 13:53, Mark O'Brien wrote:
Is something like this any good to you?

With ActiveSheet.UsedRange.Columns("A").Font

.Name = "Arial"

.Size = 10

.FontStyle = "Bold"

End With

Many thanks,that's what I need.
(Is there also a code so that all the text in cell are on the left in the cell?)

[Jack in the UK]

Hi

Text ie JACK in left or should be right is value and numbers, so you need to convert to text the whole column in this case..

Simple is add col and convert then CPAV (copy / paste as value) silly but will left align im sure.

=text(cell, 0 )
then CPAV

Caution XP will not like this and all sorts will pop up even green triangles. XP is winding me up!

[verluc]

On 2002-04-22 14:03, Jack in the UK wrote:
Hi

Text ie JACK in left or should be right is value and numbers, so you need to convert to text the whole column in this case..

Simple is add col and convert then CPAV (copy / paste as value) silly but will left align im sure.

=text(cell, 0 )
then CPAV

Caution XP will not like this and all sorts will pop up even green triangles. XP is winding me up!



I mean the code in VBA to add at my macro,so that all the text in column A is on the left side and not central or right of the cell.
Thanks for this adding code.

[Mark O'Brien]

verluc,

You mean something like this?

With ActiveSheet.UsedRange.Columns("A")

  With .Font

    .Name = "Arial"

    .Size = 10

    .FontStyle = "Bold"

  End With

  .HorizontalAlignment = xlLeft

End With

HTH

[verluc]

On 2002-04-22 14:28, Mark O'Brien wrote:
verluc,

You mean something like this?

With ActiveSheet.UsedRange.Columns("A")

  With .Font

    .Name = "Arial"

    .Size = 10

    .FontStyle = "Bold"

  End With

  .HorizontalAlignment = xlLeft

End With

HTH

Sorry Mark,but I get an error on this.
Can you see it?
Thanks

[James]

It looks like the problem is that you have 2
"End With" , remove 1 and it should be fine

James

[verluc]

On 2002-04-22 14:42, James wrote:
It looks like the problem is that you have 2
"End With" , remove 1 and it should be fine

James

James,I have removed the first "End With" and I get still the same error.

[James]

Sorry, i didn't realize the 2nd "End With"
should have been End Sub, just type End Sub
as the last line in the code

James