Sub SearchMacro()
Dim LR As Long, i As Long
With Sheets("Agreed_Principles")
With .Range("AA10")
If .Value = "1" Then
Sheets("Agreed_Principles").Range("AA26:AA75").Copy
Sheets(Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", "30", "31", "32", "33", "34", "35", "36", _
"37", "38", "39", "40", "41", "42", "43", "44", "45")).Select
Sheets("1").Activate
Range("AA26:AA75").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
End With
With .Range("AB10")
If .Value = "1" Then
Sheets("Agreed_Principles").Range("AB26:AB75").Copy
Sheets(Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", "30", "31", "32", "33", "34", "35", "36", _
"37", "38", "39", "40", "41", "42", "43", "44", "45")).Select
Sheets("1").Activate
Range("AB26:AB75").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
End With
With .Range("AC10")
If .Value = "1" Then
Sheets("Agreed_Principles").Range("AC26:AC75").Copy
Sheets(Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", "30", "31", "32", "33", "34", "35", "36", _
"37", "38", "39", "40", "41", "42", "43", "44", "45")).Select
Sheets("1").Activate
Range("AC26:AC75").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
End With
With .Range("AD10")
If .Value = "1" Then
Sheets("Agreed_Principles").Range("AD26:AD75").Copy
Sheets(Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", "30", "31", "32", "33", "34", "35", "36", _
"37", "38", "39", "40", "41", "42", "43", "44", "45")).Select
Sheets("1").Activate
Range("AD26:AD75").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
End With
With .Range("AE10")
If .Value = "1" Then
Sheets("Agreed_Principles").Range("AE26:AE75").Copy
Sheets(Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", "30", "31", "32", "33", "34", "35", "36", _
"37", "38", "39", "40", "41", "42", "43", "44", "45")).Select
Sheets("1").Activate
Range("AE26:AE75").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
End With
With .Range("AF10")
If .Value = "1" Then
Sheets("Agreed_Principles").Range("AF26:AF75").Copy
Sheets(Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", "30", "31", "32", "33", "34", "35", "36", _
"37", "38", "39", "40", "41", "42", "43", "44", "45")).Select
Sheets("1").Activate
Range("AF26:AF75").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
End With
With .Range("AG10")
If .Value = "1" Then
Sheets("Agreed_Principles").Range("AG26:AG75").Copy
Sheets(Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", "30", "31", "32", "33", "34", "35", "36", _
"37", "38", "39", "40", "41", "42", "43", "44", "45")).Select
Sheets("1").Activate
Range("AG26:AG75").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
End With
With .Range("AH10")
If .Value = "1" Then
Sheets("Agreed_Principles").Range("AH26:AH75").Copy
Sheets(Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", "30", "31", "32", "33", "34", "35", "36", _
"37", "38", "39", "40", "41", "42", "43", "44", "45")).Select
Sheets("1").Activate
Range("AH26:AH75").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
End With
With .Range("AI10")
If .Value = "1" Then
Sheets("Agreed_Principles").Range("AI26:AI75").Copy
Sheets(Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", "30", "31", "32", "33", "34", "35", "36", _
"37", "38", "39", "40", "41", "42", "43", "44", "45")).Select
Sheets("1").Activate
Range("AI26:AI75").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
End With
With .Range("AJ10")
If .Value = "1" Then
Sheets("Agreed_Principles").Range("AJ26:AJ75").Copy
Sheets(Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", "30", "31", "32", "33", "34", "35", "36", _
"37", "38", "39", "40", "41", "42", "43", "44", "45")).Select
Sheets("1").Activate
Range("AJ26:AJ75").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
End With
With .Range("AK10")
If .Value = "1" Then
Sheets("Agreed_Principles").Range("AK26:AK75").Copy
Sheets(Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", "30", "31", "32", "33", "34", "35", "36", _
"37", "38", "39", "40", "41", "42", "43", "44", "45")).Select
Sheets("1").Activate
Range("AK26:AK75").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
End With
With .Range("AL10")
If .Value = "1" Then
Sheets("Agreed_Principles").Range("AL26:AL75").Copy
Sheets(Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", "30", "31", "32", "33", "34", "35", "36", _
"37", "38", "39", "40", "41", "42", "43", "44", "45")).Select
Sheets("1").Activate
Range("AL26:AL75").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
End With
End With
End Sub