RUN-TIME ERROR ‘1004’

RUN-TIME ERROR ‘1004’ SHOW UP WHEN I RUN THE FOLLOWING SELF MADE MACRO.
PLS ENLIGHTEN AND HELP TO CORRECT.

‘ Macro15 Macro
‘ To OPEN AND VIEW DEBTOR’S FILE FROM NETWORK COMP-CE1
‘
‘ Keyboard Shortcut: Ctrl+s
‘
Sub Macro15()

ChDir “\\Ce1\MY DOCUMENTS\DEBTORS”

fname = Application.InputBox(Prompt:=”Enter AccNo”)
If fname = “” Then End
If fname = False Then End
Set mybook = Workbooks.Open(Filename:=fname)

For Each c In ActiveSheet.Range(“A17:A2000”).Cells
If c.Value <> 0 Then
c.Offset(1, 0).Select
End If
Next

ActiveWindow.ActivateNext
ChDir “\\Ce2\my documents\DEBTORS”

End Sub