I need to move data from one workbook to another. The sheet I am moving from has links to another sheet in the workbook. It moves the data fine, but it moves it as links instead of values. Here is the code I am using. does anyone have any ideas on how to correct this issue?
Sub WriteToLog_v2()
Dim curName As String
Dim nxtRw As Integer
curName = ActiveWorkbook.Name
'Open Master Workshop List.xls (Hidden if saved Hidden)
Workbooks.Open Filename:="C:\Documents and Settings\64h9978\my documents\excel\master workshop list.xls"
'Determine next empty row in master workshop list.xls
nxtRw = Workbooks("master workshop list.xls").Sheets(1).Range("A" & Rows.Count).End(xlUp).Row + 2
'Copy Activeworkbook row to to log.xls
Workbooks(curName).Sheets(3).Rows("1:8").Copy _
Destination:=Workbooks("Master Workshop List.xls").Sheets(1).Rows(nxtRw).pastelink = False
Application.CutCopyMode = False
'Save and close log.xls
Workbooks("Master Workshop List.xls").Save
End Sub
Bookmarks