Thread: Macro Error
View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Krefty[_2_] Krefty[_2_] is offline
external usenet poster
 
Posts: 1
Default Macro Error

I have the following Macro (BELOW) in a workbook. It
works in opening the daily updated
workbook "degreedays.xls" but what I want is this workbook
to open in another workbook when the user runs the macro
on the worksheet "Weather" in the ddays.xls workbook.

Thanks in advance for looking at my problem.

Krefty

Option Explicit
Sub Macro1()

Dim destCell As Range
Dim degreedays As Workbook

With Workbooks("ddays.xls").Worksheets("Weather")
.UsedRange.Clear
Set destCell = .Cells(.Rows.Count, "A").End
(xlUp).Offset(1, 0)
End With

Workbooks.OpenText
Filename:="G:\Gas_Control\EXCEL\DEPT\Month
Reports\degreedays.xls", _
Origin:=xlWindows, _
StartRow:=1, DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(8, 1), _
Array(30, 1), Array(41, 1), Array(67, 1), Array
(78, 1))






End Sub