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" wrote in message
...
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 EditPaste SpecialValues over the
original values.

Kind regards

Bernie Russell

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

--

Gary
Excel 2003


wrote in message
...
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 EditPaste SpecialValues 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
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 EditPaste SpecialMultiplyOKEsc


Gord Dibben MS Excel MVP

On Thu, 11 Sep 2008 20:43:01 -0700, Eagledove
wrote:

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

cheers
Michelle