Advertisement
Guest User

Untitled

a guest
Feb 7th, 2016
86
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.16 KB | None | 0 0
  1. Select Case ActiveWorkbook.Sheets("Sheet2").Cells(a, 2).Value
  2. Case Is = myOrderNumber: MsgBox "True" & ActiveCell.Row
  3. Case False: MsgBox "False"
  4. End Select
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement