Good afternoon,
I have the following user defined function using Array function but it did not work.
Any ideas will be highly appreciated.
Dennis



Public Function Cov(Prefix As String)

Dim BIArray As Variant
Dim PDArray As Variant
Dim PIPArray As Variant

 'Coverage Replace
  BIArray = Array("", "B.I.", "BI-06", "BI-L/T", "BI1", "OTHER BI", "LIAB")
  PDArray = Array("_PD", "DP", "JPD", "P.D, " PD", "  PD", "   PD")
  PIPArray = Array("PI ", "PI", "PIP TRAN", " PIP", "  PIP", "   PIP")
    
  Select Case Prefix
  Case BIArray: Cov = "BI"
  Case PDArray: Cov = "PD"
  Case PIPArray: Cov = "PIP"
  End Select
  
End Function