Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Select Case ActiveWorkbook.Sheets("Sheet2").Cells(a, 2).Value
- Case Is = myOrderNumber: MsgBox "True" & ActiveCell.Row
- Case False: MsgBox "False"
- End Select
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement