Another way:

dim myNames as variant
dim res as variant

mynames = Array("Addis ETB", "Addis USD", "Geneva USD", _
"HSBC Cards", "London GBP", "London USD", "Hong Kong HKD", "Hong Kong USD")

res = application.match(activesheet.name,mynames,0)

if iserror(res) then
'not found
else
'found
end if




Matt wrote:

Hi Guys

I want my code to make a descion depending on whether or not the active
sheet is in an approved list.

I thought I would use an array for this as below

If ActiveSheet.Name = Array("Addis ETB", "Addis USD", "Geneva USD", _
"HSBC Cards", "London GBP", "London USD", "Hong Kong HKD", "Hong Kong USD")
Then

But obviously my syntax is wrong. If someone could help with the syntax or
let me know of a better way that would be fantastic.

Thanks for reading this far, and in advance for any help

Matt

--

Dave Peterson