{quote}{login=Юрий М}{date=16.11.2010 03:19}{thema=}{post}Формат - Ячейка - Граница не помогает? Выбираем нужную сторону ячейки/диапазона, и применяем к ней форматирование. Затем другую сторону...{/post}{/quote}  
вставьте в модуль нужного листа  
и двойной клик по нужной ячейке  
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)  
With Target.Borders  
       .LineStyle = xlDouble  
   End With  
End Sub  
можно повесить на горячие клавиши привязать к выделенному диапазону

к сожалению, не помогает. К тому же, каждую ячейку таким образом обрабатывать чрезвычайно времязатратно(    
в первом письме я дал конечный вариант файлика, на всякий случай исходный вариант тоже приложу

Sub test()  
With Selection.Borders  
       .LineStyle = xlDouble  
   End With  
End Sub  
для выделенного диапазона

Дмитрий, xlDouble даст одинаковую ширину, а автор просит "наружняя белая и жирная, а внутри тонкая черная" :-)