Autofit, Centre and Text

  • Thread starter Thread starter Paul Black
  • Start date Start date
P

Paul Black

Hi Everyone,

I have a Macro that Produces Results Starting in "A1" and Continues
Vertically. The Results Could Possible Use Several Columns. I have Tried
Using the Following Code to Set the Columns "A:IV" to be AutoFit,
Centred and Texted, But for Some Reason it will NOT Work.
Has Anyone got Any Suggestions Please. Here is the Code :-

Sheets("Results").Select
Columns("A:IV").AutoFit
Columns("A:IV").HorizontalAlignment = xlCenter
Columns("A:IV").NumberFormat = "@" ' Set to Text.
Range("A1").Select

Thanks in Advance.
All the Best
Paul
Windows XP - Excel 2002
 
Paul,

Your code worked fine for me. Perhaps your sheet is protected?

HTH,
Bernie
MS Excel MVP
 
Sub EFGH()
Sheets("Results").Select
Range("A:IV").EntireColumn.AutoFit
Range("A:IV").EntireColumn.HorizontalAlignment = xlCenter
Range("A:IV").EntireColumn.NumberFormat = "@" ' Set to Text.
Range("A1").Select
End Sub
 
Thanks Bernie & Tom,

I Tried your Code in the Macro Tom and it Still did Not Work.
I then Tried it in a New Workbook and it Still did Not Work.
Do you Think it has got Anything to do with the Worksheet Being Set to
Text.

All the Best
Paul
 
It works fine for me - I suppose you would have to define what does not work
mean.

As Bernie said, you original code worked. I just gave you an alternative.

Do you have merged cells?

You also have to understand that formatting a cell as text does not make a
value previously stored in the cell change to text.
 
Hi Tom,

It was me ( Holding Head Down with Eyes Shut ). As you and Bernie Quite
Rightly Said, there was NOTHING Wrong with the Code, I had Just Put it
in the WRONG Place. Oh! Well, that is All Part of Learning I Suppose.

Thanks to you Both Anyway for your Help.
All the Best
Paul
 
Back
Top