Not saving if a Member's Property is incorrect

[jackyysteez]

Hello, I'm fairly new to VBA and was given the task to disable the save function in EPM in accordance with when the Range C27's member property does not equal LOB_400

I have two codes...

Function BEFORE_SAVE()
 
    If Range("A14").Value <> "LOB_400" Then
        BEFORE_SAVE = False
        MsgBox "Incorrect Cost Center. No Data was saved. Please select a cost center in LOB_400", vbAbortRetryIgnore
    Else
        MsgBox "Are you sure you want to Save this data?", vbOKCancel
        BEFORE_SAVE = True
    End If
End Function

This code completely works for my task, however, I had to corrupt cell A14 by putting the EPM Member Property formula into it... In efforts to rid my report of my tampering with cell A14... My second set of code is...

Function BEFORE_SAVE()
    If WorksheetFunction.Proper(Range("C27")) <> "LOB_400" Then
        BEFORE_SAVE = False
        MsgBox "Incorrect Cost Center. No Data was saved. Please select a cost center in LOB_400", vbAbortRetryIgnore
    Else
        MsgBox "Are you sure you want to Save this data?", vbOKCancel
        BEFORE_SAVE = True
    End If
End Function

Any idea on why when I try to run this code I am not getting the same results as I would for the first set of code??

 

[Fluff]

You're comparing proper case value (Lob) to an upper case value(LOB) so it will never match.
try either of these

If WorksheetFunction.Proper(Range("C27")) <> "Lob_400" Then

If Ucase(Range("C27")) <> "LOB_400" Then

 

[jackyysteez]

I realize now that I am using the wrong worksheet function, what worksheet function do i want to use so that the function picks up the cells Property, not its value

 

[Fluff]

What do you mean by

the cells Property

 

[jackyysteez]

the Cell is a Cost Center, which needs to have the property that it is in LOB, LOB_400

 

[Fluff]

I'm sorry I don't understand what you mean.
I have never heard of anyone talking about a cells property in excel before.

 

[Norie]

What are/is 'LOB, LOB_400'?