Out of Range Error

blueishgray

Board Regular
Joined
Jul 8, 2004
Messages
60
Hello

When I run the following code, I get a "Subscript Out of Range" error when the routine starts scanning through each "sht" of the selected workbook. (at the following part:)

Code:
    For Each sht In Workbooks(FileName).Worksheets
        If InStr(sht.Name, "Inv") <> 0 Then
            checker = 1
            GoTo two
        End If
    Next



I have looked at this for a while and cannot figure out what it cannot access the worksheets. below is the entire routine..

Any Ideas?
Thanks
Ian

Code:
Sub Testing()
    Dim checker As Integer
    Dim sht As Worksheet
   
    Dim FilePath As Variant, FileName As Variant

    FilePath = Application.GetOpenFilename()
    If FilePath = False Then
        MsgBox "Cancelled"
        GoTo one
    End If
    FileName = Mid(FilePath, InStrRev(FilePath, "\") + 1)
    
    If InStr(FileName, "TimeSheet") = 0 Then
        MsgBox "Not a Valid Selection"
        GoTo one
    End If
    
    checker = 0
    For Each sht In Workbooks(FileName).Worksheets
        If InStr(sht.Name, "Inv") <> 0 Then
            checker = 1
            GoTo two
        End If
    Next
two:
    If checker <> 1 Then
        MsgBox "No Invoices are present in selected file."
        GoTo one
    End If
    
    'Workbooks.Open FileName:=FilePath


one:
End Sub
[/code]
 

Some videos you may like

Excel Facts

How to change case of text in Excel?
Use =UPPER() for upper case, =LOWER() for lower case, and =PROPER() for proper case. PROPER won't capitalize second c in Mccartney

blueishgray

Board Regular
Joined
Jul 8, 2004
Messages
60
clarifying

to somewhat rephrase things, all I need to be able to do is sort through the sheets on a workbook the user selects....

so more than just this specific error, above is what I am really looking to solve.

Thanks,
Ian.
 

Watch MrExcel Video

Forum statistics

Threads
1,122,387
Messages
5,595,884
Members
414,029
Latest member
mrwilker

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top