I have this method to format an excel sheet. It had been working fine,
until recently, and I have not changed anything.  It just started
giving me the error "unable to set the columnwidth property of the
range class"  
I have tried:

TLine.range("B2:H2").Offset(0, (Weeks * 7)).select
Selection.ColumnWidth = 2.14

I get the same error but the selection class instead of range. any
help would be greatly appreciated as I am trying to work on other
areas of this project and am getting quite frustrated with this error.

Thanks,

    Set TLine = appExcel.Sheets(1)
 Do While (Days) >= 0
        TLine.range("B1:H1").Offset(0, (Weeks * 7)).MergeCells = True
        TLine.range("B1").Offset(0, (Weeks * 7)).FormulaR1C1 =       
                             CDate(SDTemp) + (Weeks * 7)
        TLine.range("B1").Offset(0, (Weeks * 7)).HorizontalAlignment =
xlCenter
        TLine.range("B2:H2").Offset(0, (Weeks * 7)).ColumnWidth = 2.14
        TLine.range("B2").Offset(0, (Weeks * 7)).FormulaR1C1 = "S"
        TLine.range("B2").Offset(0, (Weeks * 7)).AddComment
        TLine.range("B2").Offset(0, (Weeks * 7)).Comment.Visible = False
      





 
Yahoo! Groups Links

<*> To visit your group on the web, go to:
    http://groups.yahoo.com/group/ms_access/

<*> To unsubscribe from this group, send an email to:
    [EMAIL PROTECTED]

<*> Your use of Yahoo! Groups is subject to:
    http://docs.yahoo.com/info/terms/
 



Reply via email to