Column Width

[bdjb]

Hello,
I'm using the following code to set my column width in a Macro, but it doesn't always work. Is there a better way to do it? I have about 15 different columns that I need to set.

Excel 2003

Thanks,

 

[SkipVought]

Hi,

WHAT code?

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[bdjb]

Geez, that would have been helpful

Search = Cells.Find(what:="Account No.", After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Selection.ColumnWidth = 16

 

[SkipVought]

    Dim rFound As Range
    Set rFound = Cells.Find("Account No.")
        
    If Not rFound Is Nothing Then
        rFound.EntireColumn.ColumnWidth = 16
    End If

Unless you KNOW where the ActiveCell is and you want to search AFTER that point, then the other arguments are not usually necessary.

What I do is, my HEADINGS are almost always in row 1...

    Dim rFound As Range
    Set rFound = [b]Rows(1)[/b].Find("Account No.")
        
    If Not rFound Is Nothing Then
        rFound.EntireColumn.ColumnWidth = 16
    End If

but that's no big deal.


Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[SkipVought]

Notice that NOTHING gets selected!

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[bdjb]

Thank you very much, that looks like a better method.