Hi there

I'm trying to create a script which adds a new sheet with datas from other
sheets.
Some things work now but I have still an error and I realldy don't
understand why.

My script looks like this:
Set objXL = WScript.CreateObject ("Excel.Application")
....
Set objDanach =
objXL.ActiveWorkBook.WorkSheets(objXL.ActiveWorkBo ok.Worksheets.Count)
Set objWb7 = objXL.ActiveWorkBook.WorkSheets.Add(,objDanach)
objWb7.Name = "KPI4-6"
objWb7.Tab.ColorIndex = 7
....
objWb7.Cells(6, 1).Value ="some text..."
objWb7.Cells(6, 1).Font.Italic = TRUE
objWb7.Cells(6, 1).Font.Size = 8
objWb7.Cells(6, 1).Font.ColorIndex = 6
objWb7.Cells(6, 1).Interior.ColorIndex = 34
....
objWb7.Columns("A:A").Select
objWb7.Selection.Columns.AutoFit
objWb7.Range("A1").Select
....


In the last part I get an error on objWb7.Columns("A:A").Select Error Code
800A03EC
the error syas someing like Select class Rang failed



Thanks in advance for any help

Best regards

Ralf