I have the following code:

Windows("Alex").Activate
Columns("A:A").Select
Set oFound = Columns(1).Find(WHAT:="EXT", _
After:=ActiveCell, _
LookIn:=xlFormulas, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=True)
If Not oFound Is Nothing Then
oFound.Activate
If Trim(oFound) = "EXT" Then
ActiveCell.Offset(rowOffset:=0, columnOffset:=3).Activate
Selection.Copy
Windows("BOOK1.XLS").Activate
Range("E3").Select
ActiveSheet.Paste
Application.Goto oFound
End If
End If

How can i get it to Add the contents of this cell to another cell usin
VB?
Any example

--
alexm99
-----------------------------------------------------------------------
alexm999's Profile: http://www.excelforum.com/member.php...nfo&userid=491
View this thread: http://www.excelforum.com/showthread.php?threadid=26134