Select Case Statement

Hello Gos-C,

Here is how the syntax should be for comparing strings in a Select Case statement.

Sub SelectProvinceCase()

  prov = Left(zName, 5)
    Select Case prov
      Case Is = "Z4141"
        prov = "Nova Scotia Providers"
      Case Is = "Z4242"
        prov = "Quebec Providers"
      Case Is = "Z4343"
        prov = "NFLD Providers"
      Case Is = "Z4444"
        prov = "NEW Brunswick Providers"
      Case Is = "Z4545"
        prov = "PEI Providers"
      Case Is = "Z4646"
        prov = "Ontario Providers"
      Case Is = "Z4747"
        prov = "Saskatchewan Providers"
      Case Is = "Z4848"
        prov = "Saskatchewan Providers"
      Case Is = "Z4949"
        prov = "Alberta Providers"
      Case Is = "Z5050"
        prov = "British Columbia Providers"
      Case Else
        MsgBox "Please verify the z-file name - the provider number appears to be incorrect."
        Exit Sub
   End Select
   
End Sub

Sincerely,
Leith Ross