Mid Function

[danny147]

Beste,

Bij mijn volgende code geeft hij steeds de MsgBox weer terwijl het volgens mij NIET fout is ?
Kan iemand mij vertellen wat ik verkeerd heb gedaan

mySheetName = Ma Vm + Dag

    mySheetName = ActiveSheet.Name

    If UCase(Mid(mySheetName, 4, 2)) <> "VM" Or UCase(Mid(mySheetName, 4, 2)) <> "NM" Then
        MsgBox "U hebt het verkeerde werkblad gekozen.", vbInformation, "Fout werkblad"
        Exit Sub
    End If

 

[E v R]

And ipv Or

 

[danny147]

Beste E v R

Over het hoofd gezien, wat stom van mij
Bedankt :thumb: