Message Box

[mks]

Hi,<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
I need help to sought out the error in following macros.<o></o>
I have another macros to put the short name of person in Column “O” via user input box. I mean as soon I put the serial number in column A, than input box get appeared to enter the short name of person in Column “O”.<o></o>
Now I want that as soon I put the person name than it should show the message box, which I tried by below macros, but it is not working.<o></o>
This message box should only appear for short name as written in macros<o></o>
Please, help me to sought out this problem.<o></o>
Macros – <o></o>
Private Sub Worksheet_Change(ByVal Target As Range)<o></o>
If Target.Count > 1 Then Exit Sub<o></o>
If Intersect(Target, Range("$O$1:$O$100")) Is Nothing Then Exit Sub<o></o>
Select Case Target<o></o>
Case "MHU", "ATU", "DVR", "PLS", "TSK"<o></o>
<o> </o>
'Do nothing<o></o>
Case Else:<o></o>
MsgBox "Reliable Persons – Allot more work"<o></o>
Application.EnableEvents = False<o></o>
Application.Undo<o></o>
Application.EnableEvents = True<o></o>
End Select<o></o>
End Sub<o></o>

 

[GlennUK]

If you are putting the person into column O by macro, why aren't you putting the rest of your code in that macro?

 

[mks]

Hi Glenn,

thanks for that, what should be the code.

thanks

 

[GlennUK]

What is the code currently?