Code:

```
Sub holdings()
Dim Gcell As Range
Dim i As Integer
Dim p As Integer
Dim wb As Worksheets
Dim firstAddress As Range
Set Gcell = ActiveWorkbook.Sheets("Inputs").Range("C2")
p = 1
Do Until p = 21
If p = 1 Then Set wb = ActiveWorkbook.Sheets("NDAG")
If p = 2 Then Set wb = ActiveWorkbook.Sheets("NDAG_results")
If p = 3 Then Set wb = ActiveWorkbook.Sheets("NDARP")
If p = 4 Then Set wb = ActiveWorkbook.Sheets("NDARP_results")
If p = 5 Then Set wb = ActiveWorkbook.Sheets("NDB")
If p = 6 Then Set wb = ActiveWorkbook.Sheets("NDB_results")
If p = 7 Then Set wb = ActiveWorkbook.Sheets("NDCB")
If p = 8 Then Set wb = ActiveWorkbook.Sheets("NDCB_results")
If p = 9 Then Set wb = ActiveWorkbook.Sheets("NDCB_INC")
If p = 10 Then Set wb = ActiveWorkbook.Sheets("NDCB_INC_results")
If p = 11 Then Set wb = ActiveWorkbook.Sheets("NDFO")
If p = 12 Then Set wb = ActiveWorkbook.Sheets("NDFO_results")
If p = 13 Then Set wb = ActiveWorkbook.Sheets("NDGI")
If p = 14 Then Set wb = ActiveWorkbook.Sheets("NDGI_results")
If p = 15 Then Set wb = ActiveWorkbook.Sheets("NDINC")
If p = 16 Then Set wb = ActiveWorkbook.Sheets("NDINC_results")
If p = 17 Then Set wb = ActiveWorkbook.Sheets("NDLTG")
If p = 18 Then Set wb = ActiveWorkbook.Sheets("NDLTG_results")
If p = 19 Then Set wb = ActiveWorkbook.Sheets("NREAL5")
If p = 20 Then Set wb = ActiveWorkbook.Sheets("NREAL5_results")
[code]
```