Case Sensitive

I vedlagte kode

Private Sub RetBeregner(Fil As String)

Workbooks.Open FileName:=Fil

If ActiveWorkbook.Name = FilNavn Then

    MsgBox ("Deathmetal")

Else

    ActiveWorkbook.Close

End If

End Sub

kommer jeg aldrig ned til MsgBox'en fordi f.eks. OPTAL.CSV åbenbart ikke er lig  med optal.csv. Er der nogen der ved hvordan det kommer til at virke ??

:o]