как то так  
Sub ffff2()  
Set nms = ActiveWorkbook.Names  
Set wks = Worksheets(1)  
For r = 1 To nms.Count  
   If ActiveCell.Name = nms®.RefersTo Then MsgBox nms®.Name  
Next  
End Sub

Взято отсюда:  
 
http://www.rusdoc.ru/material/lang/vb/excel_vba.html#14  
 
Q:  Как обратиться к ячейки по ее имени ?  Т.е. есть Лист1 и в нем ячейки с именем Дебет  и Кредит.   Хочy подсчитать Дебет-Кредит средствами Excel VBA. Попробовал Range(Дебет)-Range(Кредит), ругается, что не описаны  переменные.    
 
A: Если я правильно тебя понял, нужно разыменовать ячейку из кода Excel VBA. Вот фрагмент кода, который решает такую задачу:    
' Function ValueOfNamedCell    
' Возвращает значение ячейки с именем sCellName. в активной рабочей книге.    
' Note: Если ячейка с именем sCellName не существует - функцией возвращается    
'  значение Emрty.    
'    
Рublic Function ValueOfNamedCell(sCellName As String) As Variant    
On Error GoTo errНandle    
  ValueOfNamedCell = ActiveWorkbook.Names(sCellName).RefersToRange.Value    
Exit Function    
errНandle:    
  ValueOfNamedCell = Emрty    
End Function    
 
Пробуй. Удачи!