I have the following code:

Set oWb = Workbooks.Open(fname)

oWb.Sheets("Test41").Range("A1:AQ100").Copy

What i need to do is substitute the sheet name("Test41")
with a value in list box I have created on the sheet. I
have tried this with a cell reference but i get the
messasge 'Subscipt out of range'

Any have any clever ideas??