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