VBA - Why won't my range selection work?

[NessPJ]

Hi,

I am trying to make a selection using the following VBA:

ThisWorkbook.Sheets("Data Invoer").Range("C" & BeginRange & ":" & "D" & EindRange).Select
Selection.Copy
Worksheets("Database").Range("B" & LastRowDatabase).PasteSpecial Paste:=xlPasteValues

BeginRange and EindRange are both strings containing a rownumber.

I keep getting a Debug error "Select method of Range class failed". What am i doing wrong?

 

[AlphaFrog]

The Data Invoer sheet has to be active before you can select a range on the sheet.

You can avoid selecting the range (and the sheet) with this...

ThisWorkbook.Sheets("Data Invoer").Range("C" & BeginRange & ":D" & EindRange).Copy
Worksheets("Database").Range("B" & LastRowDatabase).PasteSpecial Paste:=xlPasteValues

 

[NessPJ]

That worked like a charm! Makes sense too.
Thanks for the help.