Problem with If Or statement.

[kjg]

Hi Guys,

I am trying to use an If Or statement but seem to be having a problem.

There could be a filenamed TEST or it could be Test.

I need a message box to tell the user if the ActiveWorkbook.Name is NOT TEST or Test

This works if the file is named Test.xlsm.

If ActiveWorkbook.Name <> "Test.xlsm" Then

This works if the file is called TEST.xlsm.

If  ActiveWorkbook.Name <> "TEST.xlsm" Then

This does NOT work, always shows the message box, even if the active workbook is either of the filenames.

If ActiveWorkbook.Name <> "Test.xlsm" OR ActiveWorkbook.Name <> "TEST.xlsm" Then
MsgBox "The workbook is NOT called TEST or Test", vbCritical, Title:="Error"
Exit Sub
End If

[KOKOSEK]

How about:

If (UCase(ActiveWorkbook.Name) <> "TEST") Then
  MsgBox "The workbook is NOT called TEST or Test", vbCritical, Title:="Error"
  Exit Sub
End If

[kjg]

I tried (UCase(ActiveWorkbook.Name) <> "TEST") and (UCase(ActiveWorkbook.Name) <> "Test") just in case, but both failed.

I replaced the OR with AND as suggested by Akuini, the AND worked great.

Thanks for trying Kokosek.

[Akuini]

Try:

If ActiveWorkbook.Name <> "Test.xlsm" AND ActiveWorkbook.Name <> "TEST.xlsm" Then

[kjg]

I have just tested the AND instead of the OR and it works great, thanks Akuini.

[banaanas]

Personally I find that a good practice always when you do string comparisons is to use (ucase(trim("String here")) = (ucase(trim("String2 Here")) to trim excess spaces and make it uppercase when doing comparisons.
As KOKOSEK already posted

[KOKOSEK]

Does not make sense because Ucase("test") = Ucase("TEST") so there is no need to check twice with AND.
Why on my excel in ActiveWorkbook.Name I got only Book1 without .xlsm?

p.s. I am dumb. On fresh sheet before 1st save, there is no extension yet.

Anyhow:
Lower case sort this out in one check:

If (LCase(ActiveWorkbook.Name) <> "test.xlsm") Then
  MsgBox "The workbook is NOT called TEST or Test", vbCritical, Title:="Error"
  Exit Sub
End If

[kjg]

I don't know, when stepping through my code, I have inserted Debug.Print this shows the full name including the .xlsm as does MsgBox ActiveWorkbook.Name