Hi,<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com
fficeffice" /><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>
fficeffice" /><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>
