Vậy thì bạn làm theo kiểu: Ctrl + A... Ctrl + C rồi PasteSpecial\Value đi là xong
Tức:
Sub Macro1()
ActiveSheet.Cells.Copy
With Workbooks.Add
.ActiveSheet.PasteSpecial 3
.SaveAs ("Test.xls"): .Close
End With
End Sub
Đại khái thế, bạn thử xem! Tôi bảo đảm công thức, Hyperlink hay...