Error when looping on files

[mikejvir]

Hello,

I have a macro that does plotting on a group of files. But if the file has a particular word "[VERISION]" I need to skip it. I wrote the following that is within a loop for the files:

ActiveSheet.Cells(1, 1).Select
On Error GoTo GoodFile:
    Cells.Find(What:="[VERSION]", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
BadFile:
    itmp = MsgBox("File -" & FileName & "is Version 2" & Chr$(13) & " and cannot plot.", vbOKOnly, "Incorrect file type")
    GoTo FileEnd:

If I only do one file this works. One I select multiple files I get the following error dialog box:


Run-time error '91':

Object variable or with block variable not set

Not sure what I am doing wrong.

Thanks for the help in advance.

Michael Virostko

 

[Norie]

Michael

Not sure about the rest of the code but perhaps you could use something like this to check for '[VERSION]'.

ActiveSheet.Cells(1, 1).Select

Set rngFnd =  Cells.Find(What:="[VERSION]", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)

If Not rngFnd Is Nothing Then
    itmp = MsgBox("File -" & FileName & "is Version 2" & Chr$(13) & " and cannot plot.", vbOKOnly, "Incorrect file type")
    GoTo FileEnd
End If

PS Where are you looking for [VERSION]?

 

[mikejvir]

Any place in the worksheet. Each file becomes it own worksheet.

 

[mikejvir]

Hello Norie,

I have been tied up. Your code worked great. Thanks.

Now I have a really weird issue and I probably should open a new question.