А может как текстовой формат ???? с использованием впереди " ' "
или попробуй задать формат типа #000&&&&
( Selection.NumberFormat = "000")
Stepler ^{(щёлк-щёлк!!)}

тогда типа : ac_EP1 = Format(CStr(Cells(1, 1).Value), "000000")

А ты вообще переписываешь эти данные в др.файл?
Stepler ^{(щёлк-щёлк!!)}

так ты пишешь куда-нибудь " ac_EP1 " ???
если пишешь, то можно так:
после написания в ячейки ac_EP1 определить кол-во знаков в ячейке и прописать формат как я советовал...
Stepler ^{(щёлк-щёлк!!)}

Господи...
cislo = Len(CStr(Cells(1, 1).Value))
l: n = n + "0"
cis = Len(n)
If cis - cislo = 3 Then GoTo l1
GoTo l
l1: ac_EP1 = Format(CStr(Cells(1, 1).Value), n)
Stepler ^{(щёлк-щёлк!!)}

JojoЭтот код проблемы не решает ...потому как он задает формат после запятой
а мне нужно считать ячейку с ведущими нулями
так чтобы Метод Value не отбросил эти нули впереди
Это же план счетов !!!
010000
010100
...
и т.д.

Scio me nihil scire

<<Jojo®>>

Я же не могу за тебя ВСЁ написать, дал тебе заготовку, на её основе сделай формат какой тебе нужно...
кстати план счетов - без запятых и последнее моё предложение работает...