Woorkbook open?

Dette virker og jeg kan selvfølelig stille mig tilfreds - men vil gerne hører om der er en mere "rigtig programmeringsmåde"?

strWB=navnet på mit ark
strActWB=stien og navnet strWB

For Each wb In Workbooks
            If wb.Name = strWB Then
                    wbSvar = "yes"
                    Exit For
            End If
            wbSvar = "no"
        Next wb
       
        If wbSvar = "yes" Then
            Workbooks(strWB).Activate
        End If
       
        If wbSvar = "no" Then
            Workbooks.Open (strActWB)
        End If

Ikke mere "rigtigt" men lidt kortere:

    Dim x As Workbook
    On Error Resume Next
    Set x = Workbooks(strWB)
    If Err <> 0 Then Workbook Workbooks.Open(strActWB)

men hvad hvis jeg har 10 Workbooks åben??
og strWB ikke er den aktive...

Er jeg ikke nød til at gennemløbe de åbne workbooks?

Beklager fejlskrivning:
Dim x As Workbook
    On Error Resume Next
    Set x = Workbooks(strWB)
    If Err = 0 Then Workbooks(strWB).Activate Else Workbooks.Open (strActWB)

Så ikke lige dit spm.
Nej, du behøver ikke løbe alle igennem.
hvis Set x = Workbooks(strWB) giver en fejl (dvs. den ikke er åbnet) er Err <>0 og regneark åbnes så

lige et svar :-)

Perfekt... du er og bliver en haj...

forøvrigt har jeg ændret en del på den opslagskode vi snakkede om... har lagt den i VB så det er en userform.knap.click som henter prisen...

Jeg kan sende dig en kopi af projektet når det engang er færdigt, hvis du skulle være interesseret?

yes cddk, Jeg er selvfølgelig interesseret og glæder mig til at se det..
Bak