Hi Dennis,
does this do what you want?...

Public Sub Dennis()
Application.ScreenUpdating = False
Dim ilastrow As Long
ilastrow = Range("A" & Range("A:A").Rows.Count).End(xlUp).Row
Dim I As Long
Dim vaData As Variant
For I = 1 To ilastrow
With Range("A" & I)
If Not .Find("c:\") Is Nothing Then
vaData = .Value
End If
End With
Range("S" & I).Value = vaData
Next I
End Sub


Ken Johnson