если честно, то макросом лучше не выделять ячейки на листе.  
 
Select - нужен только для вас (человека), макросу (компьютеру) - Select нафиг не нужен, он и без него может работать и даже быстрее, чем с Select  
 
P.S. Лучше опишите свою проблему в целом и файл-пример приложите, а мы посмотрим, чем сможем помочь

{quote}{login=Ластик}{date=01.02.2012 12:08}{thema=}{post}если честно, то макросом лучше не выделять ячейки на листе.  
 
Select - нужен только для вас (человека), макросу (компьютеру) - Select нафиг не нужен, он и без него может работать и даже быстрее, чем с Select  
 
P.S. Лучше опишите свою проблему в целом и файл-пример приложите, а мы посмотрим, чем сможем помочь{/post}{/quote}  
 
Mакрос указанный выше, должен стать частью макроса который автоматически создает лист, и формирует на нем список позиций, основная  
задача этой части макроса это выделить определенный диапазон и вставить  
границы "тонкую сетку" Собственно и всё.

Вот файл, на втором листе требуемый результат  
если можно обойтись без выделения, то интересно как?

{quote}{login=Юрий М}{date=01.02.2012 12:37}{thema=}{post}Чтобы добавить "сетку", выделять тоже не нужно. Выполните на чистом листе простенький макрос:  
Sub TestGrid()  
   Range(Cells(2, 3), Cells(6, 4)).Borders.LineStyle = xlContinuous  
End Sub{/post}{/quote}  
 
А относительно примера, как это может выглядеть?

Или так - проще для понимания:  
Sub tt()  
Range([d5], Range("A" & Rows.Count).End(xlUp)).Borders.Weight = xlHairline
Range([g5], Range("F" & Rows.Count).End(xlUp)).Borders.Weight = xlHairline
End Sub

sanhasan, включите макрорекордер, запишите обрамление нужной сеткой и посмотрите код.

Наверное, тип сетки не понравился :-)

Это вирус:-)

xlNone  - нет линий.  
xlHairline - это Вам предлагал Hugo - попробуйте.