FIXED:
rc = 15
ColPlace = 1
For counter = 0 To rc - 1
wb.Sheets(1).Columns(ColPlace).ColumnWidth = 10
ColPlace = ColPlace + 1
Next

Thanks tho,
B

-----Original Message-----
Here's my code:
rc = 15
ColPlace = 1
For counter = 0 To rc - 1
wb.Worksheets("Sheet1").Columns(ColPlace).ColumnW idth =
10
ColPlace = ColPlace + 1
Next

I did this cause I couldn't get a range option to work
in
this scenario either. How? What am I missing?

Thanks in advance,
B.
.