none
COLUMN WIDTH RRS feed

  • Question

  • Hi,

       
            Columns("A:A").Select   

               Selection.ColumnWidth = 0.5
           
            Columns("A:A").ColumnWidth = 0.5
            Columns("B:AQ").ColumnWidth = 1.799301
            
            
            
            Columns("AR:AR").Select
            Selection.ColumnWidth = 0.5
           
            Columns("AS:AS").Select
            Selection.ColumnWidth = 0.5

            Columns("AT:CI").Select
            Selection.ColumnWidth = 1.799301
     
            Columns("CJ:CJ").Select
            Selection.ColumnWidth = 0.5
           
            Columns("CK:CK").Select
            Selection.ColumnWidth = 0.5

            Columns("CL:EA").Select
            Selection.ColumnWidth = 1.799301
     
            Columns("EB:EB").Select
            Selection.ColumnWidth = 0.5
           
            Columns("EC:EC").Select
            Selection.ColumnWidth = 0.5

            Columns("ED:FS").Select
            Selection.ColumnWidth = 1.799301
     
            Columns("FT:FT").Select
            Selection.ColumnWidth = 0.5
            
             Columns("FU:FU").Select
            Selection.ColumnWidth = 0.5

    How this code can be made shorter and faster ?

    Please help.

    regards

    Monday, July 20, 2015 9:41 AM

Answers

All replies