Försöker få dessa två makro att fungera ihopa. Men det vill sig inte som jag vill. Tanken är att det fösrsta makrot ligger och bläddrar sheets i filen. Det andra makrot ska gå in och uppadtera filen med ett satt tidsintervall på 5min. Men jag får det inte att funka. Har fått makron gjorde var för sig men kan som sagt inte kombinera dessa. Är det någon därute som kah hjälpa mig med detta vore det snällt.. Kanke kan lära mig lite själv också..

Public Sub ChangeSheets()
Dim ws As Worksheet
Dim blnTest As Boolean
ThisWorkbook.Activate
blnTest = True
Do While blnTest
For Each ws In ThisWorkbook.Sheets
ws.Activate
Application.Wait (Now() + TimeValue("0:00:02"))
Next ws
Loop

End Sub
Public dtime As Date
Sub Autoupdate()
dtime = Now + TimeValue("00:05:00")
Application.OnTime dtime, "AutoUpdate"
ThisWorkbook.UpdateLink Name:=ThisWorkbook.LinkSources
On Error GoTo CloseSub
ThisWorkbook.Save
CloseSub:
Exit Sub
End Sub
Public Sub Auto_Open()
Autoupdate
End Sub