Newbie Run Time Error

[have_a_cup]

When using a Dim statement, is there any way to declare a generic value,
so that if there aren't actually 10 workbooks, the macro just ends...or,
how do I get around the run time 1004 error from happening / displaying
alert????

Dim x As Integer
Dim WB As String

For x = 1 To 10


WB = "G:\myFolder\TEST\RBA\RBA " & x & ".xls"
Workbooks.Open Filename:=WB


Next

End Sub

 

[Guest]

There is no way to avoid the error, but you can handle the error, something
like this...

Dim x As Integer
Dim WB As String
dim wbk as workbook

For x = 1 To 10
WB = "G:\myFolder\TEST\RBA\RBA " & x & ".xls"
on error resume next
set wbk = Workbooks.Open (Filename:=WB)
on error goto 0
if not wbk is nothing then
'the workbook exists so have at it...
endif
Next
End Sub

 

[RB Smissaert]

You can handle that in several ways, but maybe the simplest is just putting:
On Error Resume Next
before your line:
Workbooks.Open Filename:=WB

RBS