Hi

I've pulled together some code that will save my spreadsheet into htm
format, and update a =now() field. In addition to that code I have some timer
codes which fire off the =now update, and the htm save.

My problem is, if I am working on another spreadsheet, it places the update
into what I'm working on - rather than the "right" file. I've tried telling
it to go to a named workbook & spreadsheet, but the problem is that the code
flicks to that file, and takes me away from the one I was working on. Very
frustrating.

The update to the now field is meant to happen every 5 minutes.

Is there a way to modify the update code so that I can work uninhibited on
other workbooks?

Cheers, Ty


Sub Every5()

Application.OnTime Now + TimeValue("00:05:00"), "SaveMe"

End Sub


Sub SaveMe()

Call UpdateMe

Dim fRange As Range
Sheets("sheet1").Activate
Application.ScreenUpdating = False
Set fRange = Range(Range("a1"), _
Range("a1").End(xlDown).End(xlToRight))
Workbooks.Open Filename:="d:\data\sc\statuses.xls"
Windows("support centre.xls").Activate
fRange.Copy
Windows("statuses.xls").Activate
ActiveSheet.Paste
Application.CutCopyMode = False
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="d:\data\sc\statuses.htm",
FileFormat:=xlHtml, _
CreateBackup:=False
ActiveWorkbook.Close savechanges:=False

End Sub


Sub UpdateMe()

'The purpose of this code is to update the date and time
'in an appropriate format.

'This updates G24
Application.Goto reference:="R24C7"
ActiveCell.FormulaR1C1 = "=now()"
Selection.NumberFormat = "dd mmmm yyyy, h:mm AM/PM"

'Go to description box
Application.Goto reference:="R5C3"

End Sub