I guess then my question is why does it act this way with the single page
workbook with no calculations links or macros, and not with other workbooks?
as my manager says this is just a "bandaid".


"Tom Ogilvy" wrote:

> Think you have already stated what the problem is. If you turn off
> autocalc, it runs fine. So turn off autocalc before you run the macro.
>
> --
> Regards,
> Tom Ogilvy
>
> "Sandy" <Sandy@discussions.microsoft.com> wrote in message
> news:078F6A87-0CA7-4A7E-AA03-1FCE346730E5@microsoft.com...
> > Hello
> > I posted this in General Question but now feel that it probably would be
> > better served here.....
> > I have a third party file that I use in conjunction with some of my own
> > files. If I open their file alone the file performs as expected in terms
> of
> > response time. However when I open my files the response goes from almost
> > instantaneous to taking about 40 seconds. If I do repair when I open my
> > file, the response is somewhat better but as soon as I save that file it
> > reverts to the "SLOW" mode. I have deleted all macros in my file but this
> > makes no difference. If I open a file of the relatively same size
> > (600-700kb) their file works fine. Does any one have any ideas what may be
> > casuing this problem?
> >
> > I have found that if I delete an arbirtary sheet or add a blank sheet
> > the problem also goes away. But once saved and reopened the file it goes
> > back to its old slow self. I did get the third party to release their
> code,
> > but it is reather extensive. I will gladly post if it is a help but it
> seems
> > as though that it is an Excel issue rather than code in that the code runs
> > quickly when only the one file is open. If I turn off auto calc it works
> as
> > though only their file is open. One of my files (that causes this
> behavior)
> > has a macro that copies one sheet out to a new workbook(Values only no
> links
> > no calcs no macros) and with only this newfile open with their file, the
> > response bogs down. They sent me one of the macros that gets bogged down
> in
> > a book by itself and I am still having the problem. Thier code goes way
> > beyond my understanding. Does anyone see anything that might be causing a
> > problem?
> >
> > Sub Initialize()
> > Dim szPath As String, szDrive As String
> >
> > szPath = ThisWorkbook.Path
> > szDrive = Left(szPath, 1)
> >
> > If (Right(szPath, 1) = "\") Then
> > szPath = szPath & "Region"
> > Else
> > szPath = szPath & "\Region"
> > End If
> >
> > ChDrive (szDrive)
> > ChDir (szPath)
> >
> > End Sub
> >
> > Function Exist(fName As String, Optional attr As Integer = vbNormal)
> > '
> > 'If attr = vbDirectory ==> Check directory
> > '
> > If (Trim(fName) = "") Then
> > Exist = False
> > Exit Function
> > End If
> > Exist = Len(Trim(Dir(fName, attr))) <> 0
> > End Function
> >
> > Function YYMMDDtoDate(yy As Integer, mm As Integer, dd As Integer) As Date
> > Dim dstr As String
> > dstr = Trim(Str(mm)) & "/" & Trim(Str(dd)) & "/" & Trim(Str(yy))
> > If IsDate(dstr) Then
> > YYMMDDtoDate = DateValue(dstr)
> > Else
> > YYMMDDtoDate = DateValue("01/01/01")
> > End If
> > End Function
> >
> > Sub ForecastTemp()
> > Dim mcell As Object
> > Dim ndata As Integer
> > Dim fno As Integer, ncol As Integer, hr As Integer
> > Dim yy As Integer, mm As Integer, dd As Integer
> > Dim mdate As Date
> > Dim sTemp As String, fName As String
> > Dim ss As String, sName As String
> > Dim tok As New Tokenizer
> >
> > Call Initialize
> > fName = "Temp.for"
> > If (Not Exist(fName)) Then
> > MsgBox "The desired file " & fName & " does not exist!",
> > vbExclamation, "Error"
> > Exit Sub
> > End If
> >
> > sName = "Sheet1"
> > Set mcell = Sheets(sName).Range("B2").Cells
> > Sheets(sName).Range("B1:Z1000").Clear
> >
> > fno = FreeFile
> > Open fName For Input As #fno
> > ncol = 0
> > While (Not EOF(fno))
> > Input #fno, ss
> > Call tok.Initialize(ss)
> > yy = Val(tok.NextToken())
> > mm = Val(tok.NextToken())
> > dd = Val(tok.NextToken())
> > mdate = YYMMDDtoDate(yy, mm, dd)
> > mcell.Offset(0, ncol).Value = Format(mdate, "mm/dd/yyyy")
> > For hr = 1 To 24
> > ndata = Val(tok.NextToken())
> > mcell.Offset(hr, ncol).Value = ndata
> > Next hr
> > ncol = ncol + 1
> > Wend
> > Close (fno)
> >
> > End Sub
> >
> > Temp.for is a text file that is laid out as follows.
> > A1=YR
> > B1=M
> > C1=DD
> > D1:AA1 are 24 hourly forecasted temperatures
> > there are 7 days of data in A1:AA7
> >
> > When the macro runs the data is reformatted with the day1 Date in B2
> > (DDMMYYYY) with temps for hours 1-24 in the column below it. Day 2 in C2
> etc.
> >
> > Thanks in advance for the help
> >
> >
>
>
>