title: Value not stored in Dynamic Array
body: <p>Earlier it works fine but now the data is not store in array and the same is store in rng1
  I can check in dubug windows by <strong><em>?rng1(1,1) or ?rng1(39,4)</em></strong> but vArray is giving error subscript out range.</p>
  
  <pre><code>Dim vArray() As Variant
  Dim rng1 As Range
  Dim ShNm As String
  Dim lROW AS LONG 
  
  ShNm = Sheets("Main").Range("G3")
  
  lRow = Worksheets(ShNm).Cells(Rows.Count, 1).End(xlUp).Row 
  
  Set rng1 = Worksheets(ShNm).Range("A1:D" &amp; lRow)
  
  vArray = Worksheets(ShNm).Range("A1:D" &amp; lRow)
  or        
  vArray = Worksheets(Sheets("Main").Range("G3")).Range("A1:D39")
  or
  vArray = Worksheets("ListofSheets").Range("A1:D39")
  </code></pre>