I need to be able to change the column width on multiple columns (all
next to each other) on one sheet (i.e. codename: sheet10) based on
user data selected from a combobox on sheet1.

I have tried using this but it always fails, so I would really
appreciate any help on fixing it:

with sheet10 'codename for sheet
.unprotect
.columns(4,zColCount).columnwidth=dblColWidth ' col D thru # of
columns entered
.protect
end with

Thanks again....AJ

how about this? (i added values manually because i don't have your code)

Sub test()
zcolcount = 8
dblColWidth = 12
With Sheet10 'codename for sheet
.Unprotect
.Columns(4).Resize(1, zcolcount).ColumnWidth = dblColWidth '
.Protect
End With

End Sub


--


Gary


"AJ Master" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
>I need to be able to change the column width on multiple columns (all
> next to each other) on one sheet (i.e. codename: sheet10) based on
> user data selected from a combobox on sheet1.
>
> I have tried using this but it always fails, so I would really
> appreciate any help on fixing it:
>
> with sheet10 'codename for sheet
> .unprotect
> .columns(4,zColCount).columnwidth=dblColWidth ' col D thru # of
> columns entered
> .protect
> end with
>
> Thanks again....AJ
>

One way is to do it like this:

with sheet10 'codename for sheet
.unprotect
.Range(Cells(1, 4), Cells(1, 4 + zcolcount)).ColumnWidth = dblColWidth
.protect
end with




--
Hope that helps.

Vergel Adriano


"AJ Master" wrote:

> I need to be able to change the column width on multiple columns (all
> next to each other) on one sheet (i.e. codename: sheet10) based on
> user data selected from a combobox on sheet1.
>
> I have tried using this but it always fails, so I would really
> appreciate any help on fixing it:
>
> with sheet10 'codename for sheet
> .unprotect
> .columns(4,zColCount).columnwidth=dblColWidth ' col D thru # of
> columns entered
> .protect
> end with
>
> Thanks again....AJ
>
>

On Apr 11, 12:51 pm, "Gary Keramidas" <GKeramidasATmsn.com> wrote:
> how about this? (i added values manually because i don't have your code)
>
> Sub test()
> zcolcount = 8
> dblColWidth = 12
> With Sheet10 'codename for sheet
> .Unprotect
> .Columns(4).Resize(1, zcolcount).ColumnWidth = dblColWidth '
> .Protect
> End With
>
> End Sub
>
> --
>
> Gary
>
> "AJ Master" <amitmas...@gmail.com> wrote in message
>
> news:(E-Mail Removed)...
>
> >I need to be able to change the column width on multiple columns (all
> > next to each other) on one sheet (i.e. codename: sheet10) based on
> > user data selected from a combobox on sheet1.
>
> > I have tried using this but it always fails, so I would really
> > appreciate any help on fixing it:
>
> > with sheet10 'codename for sheet
> > .unprotect
> > .columns(4,zColCount).columnwidth=dblColWidth ' col D thru # of
> > columns entered
> > .protect
> > end with
>
> > Thanks again....AJ

Gary,

Yes, thanks that worked perfectly.

AJ

On Apr 11, 1:00 pm, Vergel Adriano
<VergelAdri...@discussions.microsoft.com> wrote:
> One way is to do it like this:
>
> with sheet10 'codename for sheet
> .unprotect
> .Range(Cells(1, 4), Cells(1, 4 + zcolcount)).ColumnWidth = dblColWidth
> .protect
> end with
>
> --
> Hope that helps.
>
> Vergel Adriano
>
> "AJ Master" wrote:
> > I need to be able to change the column width on multiple columns (all
> > next to each other) on one sheet (i.e. codename: sheet10) based on
> > user data selected from a combobox on sheet1.
>
> > I have tried using this but it always fails, so I would really
> > appreciate any help on fixing it:
>
> > with sheet10 'codename for sheet
> > .unprotect
> > .columns(4,zColCount).columnwidth=dblColWidth ' col D thru # of
> > columns entered
> > .protect
> > end with
>
> > Thanks again....AJ

Vergel,

Thanks, your code worked as well. I appreciate everyones help with
this.

AJ