ColumnWidth

D

Dwight

I wrote a macro using Excel 9.0 that uses the ColumnWidth
property. If I try to run the macro in Excel 10.0 it does
not work.

Does anyone know what the problem might be?

Thanks in advance!

Dwight
 
G

Guest

Here is a sample of the code:

Sheets("Assignments").Select
ActiveCell.SpecialCells(xlLastCell).Select
strCellRow = ActiveCell.Row + 1
Range("a" & strCellRow).Select
ActiveCell.FormulaR1C1 = strAssignmentFrom
AlignDates
Range("b" & strCellRow).Select
ActiveCell.FormulaR1C1 = strAssignmentTo
AlignDates
Range("c" & strCellRow).Select
ActiveCell.FormulaR1C1 = strAssignment
Result = Application.WorksheetFunction.Substitute
(tbAssignment.Value, Chr(13), "")
ActiveCell.Value = Result

lbAssignment.ColumnCount = 3
lbAssignment.RowSource = Trim("a2:c80")

lbAssignment.ControlSource = Trim("g1")
lbAssignment.ColumnWidths = "1.7 in;.6 in; 6 in"
'Place the ListIndex into cell e3
lbAssignment.BoundColumn = 0
Range("g1").Select
Selection.ClearContents

tbDutyStatus = ""
tbAssignmentFrom = ""
tbAssignmentTo = ""
tbAssignment = ""
cbDutyStatus = False
tbAssignmentFrom.SetFocus
ActiveWorkbook.Save
 
Top