I would appreciate help on this matter otherwise i have to do it manually.

cheers
Michelle

one way
With Columns("A")
.ColumnWidth = .ColumnWidth * 0.9
End With

--


Gary


"Eagledove" <(E-Mail Removed)> wrote in message
news:5552CA1A-993E-4179-9DA6-(E-Mail Removed)...
>I would appreciate help on this matter otherwise i have to do it manually.
>
> cheers
> Michelle

Hi there,

do you mean the column width or the values in the column?
If its the former, then Gary's post is what you need.
Otherwise there are a number of ways...
You could use an array formula like this:
1 - Select the cells you want to decrease by 10%.
2 - Copy and paste to an unused section of the work book - Leave the
cells selected once you have pasted!!!
3 - Enter and = sign in the active cell and then select the cells you
want to decrease by 10% AGAIN. You should now have something like
=A1:A30 in your Activecell. Now enter * 0.9 so you have =A1:A30 * 0.9
in the active cell.
4 - Now is the magic bit! Hold down Ctrl + Shift then press Enter. All
your figures are pasted into the unused section.
5 - Copy these value and then Edit>Paste Special>Values over the
original values.

Kind regards

Bernie Russell

i didn't understand what they wanted. yours is probably what they wanted.

--

Gary
Excel 2003


<(E-Mail Removed)> wrote in message
news:2eac555e-5005-499b-924c-(E-Mail Removed)...
> Hi there,
>
> do you mean the column width or the values in the column?
> If its the former, then Gary's post is what you need.
> Otherwise there are a number of ways...
> You could use an array formula like this:
> 1 - Select the cells you want to decrease by 10%.
> 2 - Copy and paste to an unused section of the work book - Leave the
> cells selected once you have pasted!!!
> 3 - Enter and = sign in the active cell and then select the cells you
> want to decrease by 10% AGAIN. You should now have something like
> =A1:A30 in your Activecell. Now enter * 0.9 so you have =A1:A30 * 0.9
> in the active cell.
> 4 - Now is the magic bit! Hold down Ctrl + Shift then press Enter. All
> your figures are pasted into the unused section.
> 5 - Copy these value and then Edit>Paste Special>Values over the
> original values.
>
> Kind regards
>
> Bernie Russell

suppose u have data
A1 B1
100 =A1*10/100

drag it down.

then copy the values in B1 , select A1 then Go to Edit | pastespecial
| values | subtract | ok



On Sep 11, 11:43*pm, Eagledove <Eagled...@discussions.microsoft.com>
wrote:
> I would appreciate help on this matter otherwise i have to do it manually.. *
>
> cheers
> Michelle

Type .9 in an unused cell.

Copy that cell.

Select the range to change and Edit>Paste Special>Multiply>OK>Esc


Gord Dibben MS Excel MVP

On Thu, 11 Sep 2008 20:43:01 -0700, Eagledove
<(E-Mail Removed)> wrote:

>I would appreciate help on this matter otherwise i have to do it manually.
>
>cheers
>Michelle