Help please...

After running the macro below, the mouse scroll-wheel stops working.

If I do: 'file'--'open'--'cancel', then the mouse scroll-wheel works
again.

Appreciate some help here.

Thanks.

-dk


-------------- [ begin marco ] --------------------------

Sub QuoteCopy_ActiveSheet_to() ' copy quote data from a_TEST.xls
Dim DKWkbk As Workbook
Dim ActSheet As Worksheet
Dim myDir As String
Application.ScreenUpdating = False
Set ActSheet = ActiveSheet
myDir = ActiveWorkbook.Path
Set DKWkbk = Workbooks.Open _
(FileName:=myDir & Application.PathSeparator & "a_TEST.xls")
DKWkbk.Worksheets(1).Range("quotearea").Copy _
Destination:=ActSheet.Range("QuoteDate")
Application.CutCopyMode = False
DKWkbk.Close savechanges:=False
ActSheet.Select
ActSheet.Range("QuoteDate").Select
Application.ScreenUpdating = True
End Sub
----------------- [ end macro ] ---------------------------------