Thank You Ron
Greatly appreciated

Ended up using the following
ActiveSheet.Paste
ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value


"Ron de Bruin" wrote:

Hi F.C

You can use this to make values of all formulas after you paste it

With ActiveSheet.UsedRange
.Value = .Value
End With



--
Regards Ron de Bruin
http://www.rondebruin.nl


"F.C" wrote in message ...
Inserting a worksheet from another workbook the links remain.

I would like to inset a worksheet and bring accross the values rather than
the formulas.
This is the macro:
Sub Balance_Sheet_Data()

Application.ScreenUpdating = False
Workbooks.Open Filename:="G:\Balance Sheet 2004.xls"
Cells.Select
Selection.Copy
Windows("DATA SOURCE - GOLF # 3-01.xls").Activate
Sheets("Balance Sheet Recon Data").Select
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("Balance Sheet 2004.xls").Activate
ActiveWorkbook.Close
Sheets("Command Page").Select
Range("A1").Select
Application.ScreenUpdating = True
End Subs

What visual basic command do I change?