title: Excel Vba Worksheets.range.copy method not working with Dropdownlist
body: <p>I have a dropdownlist and in the event of selecting an entry a macro will fire up.
  The Dropdown List is in Cell B5 and my code is</p>
  
  <pre><code>Private Sub Worksheet_Change(ByVal Target As Range)
  Workbooks("Myfile.xlsm").Activate
  Worksheets("Mastermap").Activate
  
  If Target.Address = "$B$5" Then
  'Set Events false
  Application.EnableEvents = False
  
  Dim lastrow As Long
  Dim lastcol As Long
  Dim sfilter As String
  
  'This is the String in the Dropdownlist and resembles the worksheetname
  sfilter = Range("B5").Value 
  
  Worksheets(sfilter).Activate
  lastrow = Sheets(sfilter).Cells(Rows.Count, 3).End(xlUp).Row + 1
  lastcol = Sheets(sfilter).Cells(4, Columns.Count).End(xlToLeft).Column
  Worksheets(sfilter).Range(Cells(2, 2), Cells(lastrow, lastcol)).Copy
  
  Worksheets("Mastermap").Activate
  Worksheets("Mastermap").Range("D6").PasteSpecial xlPasteAll
  Selection.EntireColumn.AutoFit
  
  Application.EnableEvents = True
  End If
  End Sub
  </code></pre>
  
  <p>After debug I've found out that this throws me the error</p>
  
  <pre><code>Worksheets(sfilter).Range(Cells(2, 2), Cells(lastrow, lastcol)).Copy
  </code></pre>
  
  <p>So my question is why?
  I thought I could use that to copy the range of the cells?
  Using the immediate window then everything works fine though...
  Thanks in advance!</p>