Workbook Events

[Geoff]

Hi,
I have put the following simple code into ThisWorkbook to
determine first and last dates entered on any worksheet:

Private Sub Workbook_WindowActivate(ByVal Wn As Window)
If Sheets(1).Range("A24") = "" Then
Sheets(1).Range("A2") = ""
Else
MinMaxDate (1)
MinMaxDate (2)
End If
End Sub
MinMaxDate (x) is a function using WorksheetFunction.Min
and Max and the argument represents the worksheet number.

This works fine however, if I have a second workbook open
and wish to manually copy cells from it into the prime
workbook then whilst the copy is executed, the paste
function is disabled when the prime workbook is activated.

I am not sure if this is something to do with Enabling
Events etc. Could someone please explain what is missing?

T.I.A.

Geoff