Спасибо. Все отличено работает.
Оказывается что даже можно не задавать тип входных данных

Спасибо, щас отредактирую.  

Здравствуйте, господа. Необходима помощь следующего характера. Средствами VBA необходимо написать функцию, которая на вход имеет массив строковых значений как пример это столбец ( "ААА", "ККК", "ЭЭЭ", "-", "-", "-" ) значения находятся в ячейках А1...А6 - эти ячейки и образуют массив. Необходимо что бы функция отсеивала значения "-" и итоговое значение ячейки с формулой данной функции должно быть "ААА; ККК; ЭЭЭ"

Написал функцию:
<Function TextCount (ParamArray Ranges() as variant) as string >
   <TextCount = "" >
        < for i = lbound(Ranges) to Ubound(Ranges)>
                        <if  Ranges(i) <> "-"  then >
                                <TextCount = TextCount + Ranges(i) + "; " >
                        <end if >
       <next i >
<end function >

Не понимаю как задать массив строковыми значениями потому что ParamArray может иметь значение только Variant
Так же знаю что можно вопрос решить дикими формулами, но данный вариант не рассматриваю так как скорость выполнения тех формул будет дольше нежели чем данного цикла.
Кто может сталкивался ?
в литературе тоже не могу найти правильного пути решения, все варианты сводятся к книге Уокенбаха. Дж. В котором описана функция суммы, но там вариант с ParamArray проходит... файл примера во вложении  

Спасибо, все работает.  

Итак, коллеги, есть файл, в нем с помощью хмл написана лента, My tab, с помощью чекбоксов происходит следующее - скрываются или открываются строки. Каждый чекбокс открывает и скрывает свою строку.
Также есть кнопка которая открывает все строки.
Вот в чем проблема, если с помощью чекбоксов закрыть несколько строк, а потом все строки открыть кнопкой, то значения чекбоксов не изменяются с значения тру на фолс (офф на он... ), т.е., неорбходимо прописать в процедуре по нажатию кнопки код, который после открытия всех строк будет значения чекбоксов ставить на False. Мложет кто знает как выглядит данный код. много методов перепробовал ничего не работает...