Hi all.
I've recorded a macro, and in part of it I want to look at a specific group
of columns' widths.
I.e., I want to know if a column is less than a standard, or predetermined
width, and if so, delete that column. Someone has placed a series of "buffer"
columns to act as spacers, and they're unnecessary for our purposes, so I
want to delete them, and doing this by hand is really time consuming.
I've read some of the posts, and I'm wondering if the following will work.

dim MyCol as range

if MyCol.columnwidth<X 'where X is my choice of width.

myCol.select

Selection.Delete Shift:=xlToLeft

end if

Similarly, I want to do something identical with row heights.
would
dim MyRow as range

if MyRow.rowheight < Y 'where Y is my predetermined height value

MyRow.select
Selection.Delete Shift:=xlUp
end if


Thanks for your responses.
Best.

Give this code a try (substitute the width you want to compare to for the
8.43 width I used)...

Sub RemoveNarrowColumns()
Dim X As Long
For X = Columns.Count To 1 Step -1
If Columns(X).ColumnWidth < 8.43 Then Columns(X).Delete
Next
End Sub

Rick


"SteveDB1" <(E-Mail Removed)> wrote in message
news:13C3DDED-FCF9-468B-B99E-(E-Mail Removed)...
> Hi all.
> I've recorded a macro, and in part of it I want to look at a specific
> group
> of columns' widths.
> I.e., I want to know if a column is less than a standard, or predetermined
> width, and if so, delete that column. Someone has placed a series of
> "buffer"
> columns to act as spacers, and they're unnecessary for our purposes, so I
> want to delete them, and doing this by hand is really time consuming.
> I've read some of the posts, and I'm wondering if the following will work.
>
> dim MyCol as range
>
> if MyCol.columnwidth<X 'where X is my choice of width.
>
> myCol.select
>
> Selection.Delete Shift:=xlToLeft
>
> end if
>
> Similarly, I want to do something identical with row heights.
> would
> dim MyRow as range
>
> if MyRow.rowheight < Y 'where Y is my predetermined height value
>
> MyRow.select
> Selection.Delete Shift:=xlUp
> end if
>
>
> Thanks for your responses.
> Best.

Sorry, missed your 2nd question regarding short rows. Give this macro a try
for them...

Sub RemoveShortRows()
Dim X As Long
For X = Rows.Count To 1 Step -1
If Rows(X).RowHeight < 12.75 Then Rows(X).Delete
Next
End Sub

Rick


"Rick Rothstein (MVP - VB)" <(E-Mail Removed)> wrote in
message news:(E-Mail Removed)...
> Give this code a try (substitute the width you want to compare to for the
> 8.43 width I used)...
>
> Sub RemoveNarrowColumns()
> Dim X As Long
> For X = Columns.Count To 1 Step -1
> If Columns(X).ColumnWidth < 8.43 Then Columns(X).Delete
> Next
> End Sub
>
> Rick
>
>
> "SteveDB1" <(E-Mail Removed)> wrote in message
> news:13C3DDED-FCF9-468B-B99E-(E-Mail Removed)...
>> Hi all.
>> I've recorded a macro, and in part of it I want to look at a specific
>> group
>> of columns' widths.
>> I.e., I want to know if a column is less than a standard, or
>> predetermined
>> width, and if so, delete that column. Someone has placed a series of
>> "buffer"
>> columns to act as spacers, and they're unnecessary for our purposes, so I
>> want to delete them, and doing this by hand is really time consuming.
>> I've read some of the posts, and I'm wondering if the following will
>> work.
>>
>> dim MyCol as range
>>
>> if MyCol.columnwidth<X 'where X is my choice of width.
>>
>> myCol.select
>>
>> Selection.Delete Shift:=xlToLeft
>>
>> end if
>>
>> Similarly, I want to do something identical with row heights.
>> would
>> dim MyRow as range
>>
>> if MyRow.rowheight < Y 'where Y is my predetermined height value
>>
>> MyRow.select
>> Selection.Delete Shift:=xlUp
>> end if
>>
>>
>> Thanks for your responses.
>> Best.
>

Rick,
Perfect, on both accounts....
Thank you.
Best.

"Rick Rothstein (MVP - VB)" wrote:

> Sorry, missed your 2nd question regarding short rows. Give this macro a try
> for them...
>
> Sub RemoveShortRows()
> Dim X As Long
> For X = Rows.Count To 1 Step -1
> If Rows(X).RowHeight < 12.75 Then Rows(X).Delete
> Next
> End Sub
>
> Rick
>
>
> "Rick Rothstein (MVP - VB)" <(E-Mail Removed)> wrote in
> message news:(E-Mail Removed)...
> > Give this code a try (substitute the width you want to compare to for the
> > 8.43 width I used)...
> >
> > Sub RemoveNarrowColumns()
> > Dim X As Long
> > For X = Columns.Count To 1 Step -1
> > If Columns(X).ColumnWidth < 8.43 Then Columns(X).Delete
> > Next
> > End Sub
> >
> > Rick
> >
> >
> > "SteveDB1" <(E-Mail Removed)> wrote in message
> > news:13C3DDED-FCF9-468B-B99E-(E-Mail Removed)...
> >> Hi all.
> >> I've recorded a macro, and in part of it I want to look at a specific
> >> group
> >> of columns' widths.
> >> I.e., I want to know if a column is less than a standard, or
> >> predetermined
> >> width, and if so, delete that column. Someone has placed a series of
> >> "buffer"
> >> columns to act as spacers, and they're unnecessary for our purposes, so I
> >> want to delete them, and doing this by hand is really time consuming.
> >> I've read some of the posts, and I'm wondering if the following will
> >> work.
> >>
> >> dim MyCol as range
> >>
> >> if MyCol.columnwidth<X 'where X is my choice of width.
> >>
> >> myCol.select
> >>
> >> Selection.Delete Shift:=xlToLeft
> >>
> >> end if
> >>
> >> Similarly, I want to do something identical with row heights.
> >> would
> >> dim MyRow as range
> >>
> >> if MyRow.rowheight < Y 'where Y is my predetermined height value
> >>
> >> MyRow.select
> >> Selection.Delete Shift:=xlUp
> >> end if
> >>
> >>
> >> Thanks for your responses.
> >> Best.
> >
>
>