Code execution has been interrupted

Hi,

Do you know why I'd be receiving this error when running an excel macro? It occurs at End sub.

This is my code:

Sub OpenInpSpread()

Dim varFileName As String
varFileName = Sheets("DataInput").Range("B3").Value

Workbooks.Open Sheets("DataInput").Range("B3").Value

'Cells.Find(What:="Product", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

End Sub

Thankyou,
Stuart.

Hi,

is this code commented:

'Cells.Find(What:="Product", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
_
MatchCase:=False, SearchFormat:=False).Activate

Normally you get that message from the VB Compiler when it comes to a Stop
statement in the code.

so look for that somewhere in your VB Project ...

HTH

Philip

"Stuart C" wrote:

>
> Hi,
>
> Do you know why I'd be receiving this error when running an excel
> macro? It occurs at End sub.
>
> This is my code:
>
> Sub OpenInpSpread()
>
> Dim varFileName As String
> varFileName = Sheets("DataInput").Range("B3").Value
>
> Workbooks.Open Sheets("DataInput").Range("B3").Value
>
> 'Cells.Find(What:="Product", After:=ActiveCell, LookIn:=xlFormulas, _
> LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
> _
> MatchCase:=False, SearchFormat:=False).Activate
>
> End Sub
>
> Thankyou,
> Stuart.
>
>
> --
> Stuart C
> ------------------------------------------------------------------------
> Stuart C's Profile: http://www.excelforum.com/member.php...o&userid=32706
> View this thread: http://www.excelforum.com/showthread...hreadid=525323
>
>

Thanks for the reply Phil,

I've simplified the code for now (as below), and am still getting the same error when it gets to End Sub. But the work-book does open. And there doesn't appear to be any comment after "Value" and before "End Sub".

Sub OpenInpSpread()

Workbooks.Open Sheets("DataInput").Range("B3").Value

End Sub

Do you know what it might be? And do you have a tip for the best way to properly learn VB?

Cheers,
Stuart.

Is this a good workbook name and path?

Sheets("DataInput").Range("B3").Value

copy the text in the cell, and using CTRL-O in Excel, try to open it by
pasting that in the Filename box of the Open dialog.

HTH

Philip

"Stuart C" wrote:

>
> Thanks for the reply Phil,
>
> I've simplified the code for now (as below), and am still getting the
> same error when it gets to End Sub. But the work-book does open. And
> there doesn't appear to be any comment after "Value" and before "End
> Sub".
>
> Sub OpenInpSpread()
>
> Workbooks.Open Sheets("DataInput").Range("B3").Value
>
> End Sub
>
> Do you know what it might be? And do you have a tip for the best way
> to properly learn VB?
>
> Cheers,
> Stuart.
>
>
> --
> Stuart C
> ------------------------------------------------------------------------
> Stuart C's Profile: http://www.excelforum.com/member.php...o&userid=32706
> View this thread: http://www.excelforum.com/showthread...hreadid=525323
>
>