.Find Next

[pike]

Hi All
Have problems using find and the Dictionary
What Im trying to do is find a certain word in a string then return the number associated with that word
The code is

Dim DXFDict,fAddress As String,LookInR As Range,
Dim DXFDescription, DXFCode, Key,FoundOne As Range
  Set DXFDict = CreateObject("Scripting.Dictionary")
   DXFDict.Add "ROAD", "10"
   DXFDict.Add "TREE", "24"
   DXFDict.Add "FENCE", "30"
   DXFDict.Add "GATE", "31"
   'DXFDict.Add "", "0"
      Set LookInR = Sheets("Orienteering").Range("E:E").CurrentRegion
          For Each Key In DXFDict
              With LookInR  'Columns("E")
                 Set FoundOne = .Find(What:=Key, LookAt:=xlPart) 
                 fAddress = FoundOne.Address "ERROR ON THIS LINE
                   Do
                     FoundOne.Offset(1).Value = DXFDict.Item(Key)
                    Set FoundOne = .FindNext(After:=FoundOne)
                  Loop While FoundOne.Address <> fAddress
               End With
          Next

But I get an error on this line fAddress = FoundOne.Address
why is this so??
any pointers appreciated