Macro Error When Trying to Copy

[MikeG]

I have created the macro shown below. The idea is when the user enters a new number in Cell D5, the macro goes to another worksheet and simply copies the value in K11.


Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address(False, False) = "D5" Then
Sheets("Quotes Database").Select
Range("K11").Select
Selection.Copy
End If

End Sub


The problem is when it runs, I get a...

Runtime Error 1004

Select method of Range class failed

...and the macro stops on the "Range("K11").Select" line.

I would appreciate any help.

Thanks,

MikeG

 

[Jonmo1]

Event code is placed in the Sheet's module.

Unqualified ranges in a Sheet module refer to that sheet, regardless of which sheet is active/selected.

Try changing all this

Sheets("Quotes Database").Select
Range("K11").Select
Selection.Copy

to

Sheets("Quotes Database").Range("K11").Copy

 

[MikeG]

Thanks very much!

Mike