vba cell resizing problem

Lochnagar

New Member
Joined
Jan 28, 2008
Messages
43
Hi, <?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:eek:ffice:eek:ffice" /><o:p></o:p>
<o:p></o:p>
I've got a For..Next statement that inputs a piece of text into the activecell, then colours the cell and adds a border. My problem now is that I need it to adjust the column width so I can read all of the text that is in that cell, which it doesn't do at the moment. In ‘layman vba’ this is what I’m after<o:p></o:p>
<o:p> </o:p>
Resize activecell so all text can be seen.<o:p></o:p>
<o:p> </o:p>
Any help/suggestion will be very much appreciated<o:p></o:p>
<o:p> </o:p>
Thanks in advance, <o:p></o:p>
<o:p> </o:p>
Lochnagar<o:p></o:p>
 

Some videos you may like

Excel Facts

Add Bullets to Range
Select range. Press Ctrl+1. On Number tab, choose Custom. Type Alt+7 then space then @ sign (using 7 on numeric keypad)

Lochnagar

New Member
Joined
Jan 28, 2008
Messages
43
Brilliant, just what I was after. Thanks VoG II. Thanks RichardSchollar.

Lochnagar
 

Watch MrExcel Video

Forum statistics

Threads
1,101,925
Messages
5,483,735
Members
407,406
Latest member
ishipra

This Week's Hot Topics

  • Finding issue in If elseif else with For each Loop
    Finding issue in If elseif else with For each Loop I have tried this below code but i'm getting in Y column filled with W005. Colud you please...
  • MsgBox Error
    Hi Guys, I have the below error show up when i try and run my macro in File1 but works fine if i copy and paste the same code into file2. [ATTACH...
  • CELL FORMAT - IF CONDITION
    My Cell Format is [B]""0.00" Cr". [/B]But in the cell, it is showing 123.00 for editing. (123 is entry figure). (Data imported from other...
  • Show numbers nearly the same
    Is this possible. I have a number that can change very time eg 0.00001234 Then I have a lot of numbers 0.0000001, 0.0000002, 0.00000004...
  • Please i need your help to create formula
    I need a formula in cell B8 to do this >>if b1=1 then multiply ( cell b8) by 10% ,if b1=2 multiply by 20%,if=3 multiply by 30%. Thank you in...
  • Got error while adding column and filter
    Got error while adding column and filter In column Z has some like "Success" and "Error". I want to add column in AA if the Z cell value is...
Top