Subscript out of range (vba error) when two (2) excel files opened

[shakaib26]

Hi,

I am using blow code in vba, but when two excel files are opened "Subscript out of range" error occur. But when i close the other excel file its working fine.

Private Sub PROJECTNO()
Dim a As Object
Dim rr As Range, r As Range
Dim s As String
Set a = CreateObject("system.collections.arraylist")
Set rr = Worksheets("Boiler Data").Range("B3:B1000").SpecialCells(xlCellTypeVisible)
On Error Resume Next
If Not rr Is Nothing Then
For Each r In rr
s = CStr(r.value)
If Not a.contains(s) Then
a.Add s
End If
Next
a.Sort
ComboBox1.List = a.toarray
End If
End Sub


Please help me to remove this error.

Regards,
Khawaja M. Shakaib

 

[Fluff]

Cross-posting (posting the same question in more than one forum) is not against our rules, but the method of doing so is covered by #13 of the Forum Rules.

Be sure to follow & read the link at the end of the rule too!

Cross posted at: Subscript out of range (vba error) when two (2) excel files opened
There is no need to repeat the link(s) provided above but if you have posted the question at other places, please provide links to those as well.

If you do cross-post in the future and also provide links, then there shouldn’t be a problem.

 

[shakaib26]

Cross-posting (posting the same question in more than one forum) is not against our rules, but the method of doing so is covered by #13 of the Forum Rules.

Be sure to follow & read the link at the end of the rule too!

Cross posted at: Subscript out of range (vba error) when two (2) excel files opened
There is no need to repeat the link(s) provided above but if you have posted the question at other places, please provide links to those as well.

If you do cross-post in the future and also provide links, then there shouldn’t be a problem.

What kind of link?

 

[Fluff]

A link to any other sites where you have asked this question.