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
