{quote}{login=}{date=21.06.2010 11:24}{thema=}{post}cells(n,1)="'"& cells(n,1){/post}{/quote}  
 
как я понял в данной команде нужно четко  указывать  откуда и до куда нужно вставлять символ?

{quote}{login=Юрий М}{date=21.06.2010 11:38}{thema=}{post}Чётко указывается - ПЕРЕД имеющимся значением. Только учтите - к пустому значению тоже добавится апостроф, если не делать специальную проверку.{/post}{/quote}  
 
т.е. так Cells(D, 1) = "'" & Cells(D, 13)  ?

Что такое D - переменная? Изначально в Вашем вопросе было заместить значение в ячейке, а сейчас - берёте значение ИЗ ДРУГОЙ и добавляете к нему апостроф.

{quote}{login=Юрий М}{date=21.06.2010 11:52}{thema=}{post}Что такое D - переменная? Изначально в Вашем вопросе было заместить значение в ячейке, а сейчас - берёте значение ИЗ ДРУГОЙ и добавляете к нему апостроф.{/post}{/quote}  
 
я не правильно написал ,  извините.  
Cells(D, 2) = "'" & Cells(D, 2)  
 
но мне нужно в каждую ячейку массива  до его конца.

{quote}{login=Юрий М}{date=21.06.2010 11:56}{thema=}{post}Предложенный способ - cells(n,1)="'"& cells(n,1) - так и сделает, в чём проблема?{/post}{/quote}  
 
объясните пож-та,  как привязать это к массиву,  я не пойму пока.    
что такое n? это переменная которой нужно задавать параметры?

Ну вот, а keidfoster так ничего и не понял...  
Если с n - в эту переменную заносим номер последнего заполненного ряда по колонке А, затем делаем цикл от 1 до n.  
А номер последнего заполненного ряда обычно определяют так:  
iLastRow = Cells(Rows.Count, 1).End(xlUp).Row  
 
В коде от Казанский в общем тоже самое.

keidfoster, если Вы испытываете трудности с макросом, то просто вставьте Ваши данные в этот файл, начиная с ячейки А2. Затем нажмите на кнопку.

А я и не сужу, а пытаюсь объяснить, Вам пригодится, это ведь не последний макрос...

а можно ещё вопрос?    
команда,  которая будет видеть файлы в определённой папке и делать с ними это:  
Sub 123()  
Dim x As Range  
For Each x In Range([D2], Cells(ActiveSheet.Rows.Count, 1).End(xlUp)).Cells
If x <> "" Then x.Formula = "'" & x  
Next  
End Sub

Это Вам надо Dir() изучать.  
Вот пример, сможете приспособить?  
 
Sub Spalik()  
Const fldr = "C:\temp\"         ' Путь к папке с файлами  
Dim strFile As String, wb As Workbook, ws As Worksheet, wsSum As Worksheet  
   
Application.ScreenUpdating = False  'нет мелькания на экране  
Set wsSum = ActiveSheet  
strFile = Dir(fldr & "*.xls")  
Do While strFile <> ""          'Цикл по файлам  
   Set wb = Workbooks.Open(fldr & strFile, ReadOnly:=True)  
   For Each ws In wb.Worksheets    'цикл по рабочим листам файла  
       ws.UsedRange.Copy  
       wsSum.Range(ws.UsedRange.Address).PasteSpecial xlPasteValues, xlPasteSpecialOperationAdd, False, False  
   Next  
   wb.Close False  
   strFile = Dir  
Loop  
Application.ScreenUpdating = True  
End Sub

{quote}{login=Hugo}{date=21.06.2010 02:05}{thema=}{post}Это Вам надо Dir() изучать.  
Вот пример, сможете приспособить?  
 
Sub Spalik()  
Const fldr = "C:\temp\"         ' Путь к папке с файлами  
Dim strFile As String, wb As Workbook, ws As Worksheet, wsSum As Worksheet  
   
Application.ScreenUpdating = False  'нет мелькания на экране  
Set wsSum = ActiveSheet  
strFile = Dir(fldr & "*.xls")  
Do While strFile <> ""          'Цикл по файлам  
   Set wb = Workbooks.Open(fldr & strFile, ReadOnly:=True)  
   For Each ws In wb.Worksheets    'цикл по рабочим листам файла  
       ws.UsedRange.Copy  
       wsSum.Range(ws.UsedRange.Address).PasteSpecial xlPasteValues, xlPasteSpecialOperationAdd, False, False  
   Next  
   wb.Close False  
   strFile = Dir  
Loop  
Application.ScreenUpdating = True  
End Sub{/post}{/quote}  
 
 
а почему он всё вставляет в файл где я поставил кнопку на макрос а не в той папке где я указал вложения?

Если проект разрастается, давай сразу создавай правильную структуру: константы вынесены из кода, переменные объявлены, имена информативны. За основу можешь взять этот код, разберись, как он работает.  
 
Option Explicit  
Const ColumnToProcess As Integer = 4  
Const fldr As String = "c:\temp\"   'с \ в конце!  
 
Sub AddApostrophe()  
Dim strFile As String, wb As Workbook, ws As Worksheet, blWBChanged As Boolean  
 
Application.ScreenUpdating = False  
strFile = Dir(fldr & "*.xls")  
Do While strFile <> ""    'Цикл по файлам  
   Set wb = Workbooks.Open(fldr & strFile)  
   blWBChanged = False  
   For Each ws In wb.Worksheets 'цикл по рабочим листам файла  
       blWBChanged = blWBChanged Or processSheet(ws)  
   Next  
   wb.Close blWBChanged  
   strFile = Dir  
Loop  
Application.ScreenUpdating = True  
End Sub  
 
Function processSheet(sh As Worksheet)  
Dim x As Range  
On Error GoTo err_nocells  
For Each x In sh.Columns(ColumnToProcess).SpecialCells(xlCellTypeConstants)  
   x.Formula = "'" & x  
Next  
processSheet = True  
Exit Function  
 
err_nocells:  
End Function

А нельзя просто  
blWBChanged = processSheet(ws)  
?  
 
И наверное ещё надо добавить  
Application.EnableEvents = False/True

Event открываемых книг. Мало ли что там понаписано. Я на тесте столкнулся...