Addition to code to copy and pastes special values and cell format, but not links.

Hi I have a small piece of code which helps me copy sheet 1 from 24 separate workbooks and then merges them into a singlwe workbook.
what do I need to do the the code to allow it to only copy the cell formats and values without copying over the whole link to the original documents?
Thanks

Sub GetSheets()
 Path = "My File path"
 Filename = Dir(Path & "*.xls")
 Do While Filename <> ""
 Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
 ActiveWorkbook.Sheets(1).Copy After:=ThisWorkbook.Sheets(1)
 Workbooks(Filename).Close
 Filename = Dir()
 Loop
 End Sub