Hi tiptop

Untested, but try...

Sub Network()
Dim WS As Worksheet
Dim sourceRng As Range, destRng As Range
Set sourceRng = ActiveSheet.Range("AL6")
Set WS = Workbooks("Processed Exceptions.xls").Sheets("Processed
Exceptions")
Set destRng = WS.Cells(Rows.Count, "D").End(xlUp)(2)
destRng.formula=sourceRng.value2
End Sub

--
XL2002
Regards

William



"tiptop " wrote in message
...
| Hello,
|
| I have a vba that allows me to copy stuff from a source to 2nd sheet.
| But when I use it, it's copying the formula in the source box, not the
| actual displayed text. How can I correct this?
|
| Sub Network()
| Dim WS As Worksheet
| Dim sourceRng As Range, destRng As Range
| Set sourceRng = Range("AL6")
| Set WS = Workbooks("Processed Exceptions.xls").Sheets("Processed
| Exceptions")
| Set destRng = WS.Cells(Rows.Count, "D").End(xlUp)(2)
| sourceRng.Copy destRng
| End Sub
|
|
| ---
| Message posted from http://www.ExcelForum.com/
|