Hvordan checkes om et Excel-regneark er indlæst ?

Fandt selv svaret uge på nettet:

  Dim wb As Workbook, FilAaben As Boolean
  FilAaben = False
  For Each wb In Application.Workbooks
    If wb.Name = "Inddata.xls" Then
      FilAaben = True
    End If
  Next
  If Not FilAaben Then
    MsgBox ("INDDATA.XLS er ikke åben !")
  End If
  Set wb = Nothing

alternativt

Dim wb As Workbook
On Error Resume Next
Set wb = Workbooks("INDDATA.XLS")
If Err <> 0 Then MsgBox ("INDDATA.XLS er ikke åben !")
On Error GoTo 0