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 ?rng1(1,1) or ?rng1(39,4) but vArray is giving error subscript out range.
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" & lRow)
vArray = Worksheets(ShNm).Range("A1:D" & lRow)
or
vArray = Worksheets(Sheets("Main").Range("G3")).Range("A1:D39")
or
vArray = Worksheets("ListofSheets").Range("A1:D39")