This is as close as I can come. It doesn't appear to be very efficient...
'--
Option Explicit
Private Const sNames As String = "Larry,Moe,Curly"

Sub Demo()
MsgBox Split(sNames, ",")(1) 'returns Moe
End Sub

--
Jim Cone
Portland, Oregon USA




wrote in message
Hi,
Just wondering if it is possible to create a private constant array of
type string in excel 2000.
I want this constant string array to sit at the top of my module and
be used in the subs that follow.
Regards,
Tom