I have a code that works for me in office 2002, but it will not work in 2000 can anyone help me with what is wrong please. Thanks in advance.
mycop = UserForm1.TextBox1.Text
If mycop < 1 Then GoTo errhandler1:
If mycop = "" Then GoTo errhandler1:
If Application.Dialogs(xlDialogPrinterSetup).Show = False Then End
If Sheet1.ListBox1.Selected(0) = True Then Sheet18.PrintOut Copies:=mycop