Makro til at skifte imellem filer

Hmm, hvad nu hvis, du har tre eller flere filer (workbooks) åbne?

Nåh, men denne burde fungere, hvis der kun er to åbne Excel-filer. Koden skal vel så lægges ind i begge de to filer.

Den bør udvides med fejlhåndtering mv.

Sub ÅbnAndenFil()
Dim wb As Workbook
Dim str As String
For Each wb In Workbooks
If wb.Name <> ThisWorkbook.Name Then str = wb.Name
Next wb
MsgBox "Den anden åbne Excel-fil er: " & str & "." & vbCrLf & _
"Klik på OK for at aktivere den."
Workbooks(str).Activate
End Sub