Call a Private Sub using a variable

  • Thread starter Thread starter Caezar
  • Start date Start date
C

Caezar

The routine below does not operate as intended, as the Call method
does not recognize a variable.
Call Supported_Reports(i) does not work.

How can I change this routine to male it work?

Thanks!

Sub Format_Reports()

Dim Supported_Reports(1) As String
Dim i As Integer

Supported_Reports(0) = "CGE457"
Supported_Reports(1) = "SPE962"

For i = 0 To i = UBound(Supported_Reports)
If Not ActiveSheet.Cells.Find(Supported_Reports(i)) Is Nothing
Then Call Supported_Reports(i)
Next i

End Sub
 
Hi Caezar,

Try using the Run method which
takes a string argument.

So replace
Then Call Supported_Reports(i)
Click to expand...

with

Then Application.Run Call Supported_Reports(i)

See VBA help for more information
on the Run method
 
Hi Caezar,

Try using the Run method which
takes a string argument.

So replace


with

Then Application.Run Call Supported_Reports(i)

See VBA help for more information
on the Run method
Click to expand...

Ha, thanks!
 
Hello
Supported_Reports is :
1. a variable in line Dim Supported_Reports(1) As String
2. a procedure in line Then Call Supported_Reports(i)

Rename first or second

J a c q u e s
 
Back
Top