Rất mong các Thầy, các bạn giúp dùm rút gọn đoạn code sau. Xin cám ơn nhieu

[nqt61]

Sub thu()

Range("D6").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"Kho du lieu/De thi V6 HKII 2011-2012.doc", ScreenTip:= _
"QLVB_Nguyen Quoc Toan", TextToDisplay:= _
"Kho du lieu\De thi V6 HKII 2011-2012.doc"
Range("D7").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"Kho du lieu/ND12CP.DOC", ScreenTip:="QLVB_Nguyen Quoc Toan", _
TextToDisplay:="Kho du lieu\ND12CP.DOC"
Range("D8").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"Kho du lieu/ND83CP.DOC", ScreenTip:="QLVB_Nguyen Quoc Toan", _
TextToDisplay:="Kho du lieu\ND83CP.DOC"
Range("D9").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"Kho du lieu/ND85CP09.doc", ScreenTip:="QLVB_Nguyen Quoc Toan", _
TextToDisplay:="Kho du lieu\ND85CP09.doc"
End Sub