Hello,
I'm trying to copy paste some data in other workbooks to the main workbook but I got some error saying that the procedure is too long.
Is there any way to simplify this code? Thank you
Thank you. I hope someone can help me.
I'm trying to copy paste some data in other workbooks to the main workbook but I got some error saying that the procedure is too long.
Is there any way to simplify this code? Thank you
VBA Code:
Sub AAA()
Workbooks("Mating Coco Load Phase 1 Summary xx.xlsm").Activate
Worksheets("Concomitant").Activate
For c = 6 To 10 'the looping range
'4 Seconds
If Cells(c, 74) = 4 And Cells(c, 75) = 1 And Cells(c, 76) = 0 Then
Run ("Open_4sS1")
Worksheets("H0").Activate
ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 1 And Cells(c, 76) = 15 Then
Run ("Open_4sS1")
Worksheets("H15").Activate
ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 1 And Cells(c, 76) = 30 Then
Run ("Open_4sS1")
Worksheets("H30").Activate
ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 1 And Cells(c, 76) = 45 Then
Run ("Open_4sS1")
Worksheets("H45").Activate
ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 1 And Cells(c, 76) = 60 Then
Run ("Open_4sS1")
Worksheets("H60").Activate
ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 1 And Cells(c, 76) = 75 Then
Run ("Open_4sS1")
Worksheets("H75").Activate
ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 1 And Cells(c, 76) = 90 Then
Run ("Open_4sS1")
Worksheets("H90").Activate
ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 1 And Cells(c, 76) = 105 Then
Run ("Open_4sS1")
Worksheets("H105").Activate
ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 1 And Cells(c, 76) = 120 Then
Run ("Open_4sS1")
Worksheets("H120").Activate
ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 1 And Cells(c, 76) = 135 Then
Run ("Open_4sS1")
Worksheets("H135").Activate
ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 1 And Cells(c, 76) = 150 Then
Run ("Open_4sS1")
Worksheets("H150").Activate
ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 1 And Cells(c, 76) = 165 Then
Run ("Open_4sS1")
Worksheets("H165").Activate
ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 1 And Cells(c, 76) = 180 Then
Run ("Open_4sS1")
Worksheets("H180").Activate
ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 1 And Cells(c, 76) = 195 Then
Run ("Open_4sS1")
Worksheets("H195").Activate
ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 1 And Cells(c, 76) = 210 Then
Run ("Open_4sS1")
Worksheets("H210").Activate
ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 1 And Cells(c, 76) = 225 Then
Run ("Open_4sS1")
Worksheets("H225").Activate
ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 1 And Cells(c, 76) = 240 Then
Run ("Open_4sS1")
Worksheets("H240").Activate
ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 1 And Cells(c, 76) = 225 Then
Run ("Open_4sS1")
Worksheets("H255").Activate
ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 1 And Cells(c, 76) = 270 Then
Run ("Open_4sS1")
Worksheets("H270").Activate
ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 1 And Cells(c, 76) = 285 Then
Run ("Open_4sS1")
Worksheets("H285").Activate
ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 1 And Cells(c, 76) = 300 Then
Run ("Open_4sS1")
Worksheets("H300").Activate
ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 1 And Cells(c, 76) = 315 Then
Run ("Open_4sS1")
Worksheets("H315").Activate
ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 1 And Cells(c, 76) = 330 Then
Run ("Open_4sS1")
Worksheets("H330").Activate
ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 1 And Cells(c, 76) = 345 Then
Run ("Open_4sS1")
Worksheets("H345").Activate
ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 2 And Cells(c, 76) = 0 Then
Run ("Open_4sS2")
Worksheets("H0").Activate
ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 2 And Cells(c, 76) = 15 Then
Run ("Open_4sS2")
Worksheets("H15").Activate
ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 2 And Cells(c, 76) = 30 Then
Run ("Open_4sS2")
Worksheets("H30").Activate
ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 2 And Cells(c, 76) = 45 Then
Run ("Open_4sS2")
Worksheets("H45").Activate
ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 2 And Cells(c, 76) = 60 Then
Run ("Open_4sS2")
Worksheets("H60").Activate
ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 2 And Cells(c, 76) = 75 Then
Run ("Open_4sS2")
Worksheets("H75").Activate
ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 2 And Cells(c, 76) = 90 Then
Run ("Open_4sS2")
Worksheets("H90").Activate
ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 2 And Cells(c, 76) = 105 Then
Run ("Open_4sS2")
Worksheets("H105").Activate
ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 2 And Cells(c, 76) = 120 Then
Run ("Open_4sS2")
Worksheets("H120").Activate
ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 2 And Cells(c, 76) = 135 Then
Run ("Open_4sS2")
Worksheets("H135").Activate
ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 2 And Cells(c, 76) = 150 Then
Run ("Open_4sS2")
Worksheets("H150").Activate
ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 2 And Cells(c, 76) = 165 Then
Run ("Open_4sS2")
Worksheets("H165").Activate
ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 2 And Cells(c, 76) = 180 Then
Run ("Open_4sS2")
Worksheets("H180").Activate
ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 2 And Cells(c, 76) = 195 Then
Run ("Open_4sS2")
Worksheets("H195").Activate
ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 2 And Cells(c, 76) = 210 Then
Run ("Open_4sS2")
Worksheets("H210").Activate
ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 2 And Cells(c, 76) = 225 Then
Run ("Open_4sS2")
Worksheets("H225").Activate
ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 2 And Cells(c, 76) = 240 Then
Run ("Open_4sS2")
Worksheets("H240").Activate
ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 2 And Cells(c, 76) = 225 Then
Run ("Open_4sS2")
Worksheets("H255").Activate
ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 2 And Cells(c, 76) = 270 Then
Run ("Open_4sS2")
Worksheets("H270").Activate
ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 2 And Cells(c, 76) = 285 Then
Run ("Open_4sS2")
Worksheets("H285").Activate
ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 2 And Cells(c, 76) = 300 Then
Run ("Open_4sS2")
Worksheets("H300").Activate
ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 2 And Cells(c, 76) = 315 Then
Run ("Open_4sS2")
Worksheets("H315").Activate
ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 2 And Cells(c, 76) = 330 Then
Run ("Open_4sS2")
Worksheets("H330").Activate
ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 2 And Cells(c, 76) = 345 Then
Run ("Open_4sS2")
Worksheets("H345").Activate
ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 3 And Cells(c, 76) = 0 Then
Run ("Open_4sS3")
Worksheets("H0").Activate
ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 3 And Cells(c, 76) = 15 Then
Run ("Open_4sS3")
Worksheets("H15").Activate
ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 3 And Cells(c, 76) = 30 Then
Run ("Open_4sS3")
Worksheets("H30").Activate
ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 3 And Cells(c, 76) = 45 Then
Run ("Open_4sS3")
Worksheets("H45").Activate
ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 3 And Cells(c, 76) = 60 Then
Run ("Open_4sS3")
Worksheets("H60").Activate
ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 3 And Cells(c, 76) = 75 Then
Run ("Open_4sS3")
Worksheets("H75").Activate
ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 3 And Cells(c, 76) = 90 Then
Run ("Open_4sS3")
Worksheets("H90").Activate
ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 3 And Cells(c, 76) = 105 Then
Run ("Open_4sS3")
Worksheets("H105").Activate
ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 3 And Cells(c, 76) = 120 Then
Run ("Open_4sS3")
Worksheets("H120").Activate
ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 3 And Cells(c, 76) = 135 Then
Run ("Open_4sS3")
Worksheets("H135").Activate
ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 3 And Cells(c, 76) = 150 Then
Run ("Open_4sS3")
Worksheets("H150").Activate
ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 3 And Cells(c, 76) = 165 Then
Run ("Open_4sS3")
Worksheets("H165").Activate
ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 3 And Cells(c, 76) = 180 Then
Run ("Open_4sS3")
Worksheets("H180").Activate
ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 3 And Cells(c, 76) = 195 Then
Run ("Open_4sS3")
Worksheets("H195").Activate
ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 3 And Cells(c, 76) = 210 Then
Run ("Open_4sS3")
Worksheets("H210").Activate
ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 3 And Cells(c, 76) = 225 Then
Run ("Open_4sS3")
Worksheets("H225").Activate
ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 3 And Cells(c, 76) = 240 Then
Run ("Open_4sS3")
Worksheets("H240").Activate
ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 3 And Cells(c, 76) = 225 Then
Run ("Open_4sS3")
Worksheets("H255").Activate
ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 3 And Cells(c, 76) = 270 Then
Run ("Open_4sS3")
Worksheets("H270").Activate
ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 3 And Cells(c, 76) = 285 Then
Run ("Open_4sS3")
Worksheets("H285").Activate
ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 3 And Cells(c, 76) = 300 Then
Run ("Open_4sS3")
Worksheets("H300").Activate
ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 3 And Cells(c, 76) = 315 Then
Run ("Open_4sS3")
Worksheets("H315").Activate
ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 3 And Cells(c, 76) = 330 Then
Run ("Open_4sS3")
Worksheets("H330").Activate
ElseIf Cells(c, 74) = 4 And Cells(c, 75) = 3 And Cells(c, 76) = 345 Then
Run ("Open_4sS3")
Worksheets("H345").Activate
'5 seconds
ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 1 And Cells(c, 76) = 0 Then
Run ("Open_5sS1")
Worksheets("H0").Activate
ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 1 And Cells(c, 76) = 15 Then
Run ("Open_5sS1")
Worksheets("H15").Activate
ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 1 And Cells(c, 76) = 30 Then
Run ("Open_5sS1")
Worksheets("H30").Activate
ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 1 And Cells(c, 76) = 45 Then
Run ("Open_5sS1")
Worksheets("H45").Activate
ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 1 And Cells(c, 76) = 60 Then
Run ("Open_5sS1")
Worksheets("H60").Activate
ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 1 And Cells(c, 76) = 75 Then
Run ("Open_5sS1")
Worksheets("H75").Activate
ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 1 And Cells(c, 76) = 90 Then
Run ("Open_5sS1")
Worksheets("H90").Activate
ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 1 And Cells(c, 76) = 105 Then
Run ("Open_5sS1")
Worksheets("H105").Activate
ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 1 And Cells(c, 76) = 120 Then
Run ("Open_5sS1")
Worksheets("H120").Activate
ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 1 And Cells(c, 76) = 135 Then
Run ("Open_5sS1")
Worksheets("H135").Activate
ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 1 And Cells(c, 76) = 150 Then
Run ("Open_5sS1")
Worksheets("H150").Activate
ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 1 And Cells(c, 76) = 165 Then
Run ("Open_5sS1")
Worksheets("H165").Activate
ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 1 And Cells(c, 76) = 180 Then
Run ("Open_5sS1")
Worksheets("H180").Activate
ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 1 And Cells(c, 76) = 195 Then
Run ("Open_5sS1")
Worksheets("H195").Activate
ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 1 And Cells(c, 76) = 210 Then
Run ("Open_5sS1")
Worksheets("H210").Activate
ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 1 And Cells(c, 76) = 225 Then
Run ("Open_5sS1")
Worksheets("H225").Activate
ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 1 And Cells(c, 76) = 240 Then
Run ("Open_5sS1")
Worksheets("H240").Activate
ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 1 And Cells(c, 76) = 225 Then
Run ("Open_5sS1")
Worksheets("H255").Activate
ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 1 And Cells(c, 76) = 270 Then
Run ("Open_5sS1")
Worksheets("H270").Activate
ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 1 And Cells(c, 76) = 285 Then
Run ("Open_5sS1")
Worksheets("H285").Activate
ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 1 And Cells(c, 76) = 300 Then
Run ("Open_5sS1")
Worksheets("H300").Activate
ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 1 And Cells(c, 76) = 315 Then
Run ("Open_5sS1")
Worksheets("H315").Activate
ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 1 And Cells(c, 76) = 330 Then
Run ("Open_5sS1")
Worksheets("H330").Activate
ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 1 And Cells(c, 76) = 345 Then
Run ("Open_5sS1")
Worksheets("H345").Activate
ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 2 And Cells(c, 76) = 0 Then
Run ("Open_5sS2")
Worksheets("H0").Activate
ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 2 And Cells(c, 76) = 15 Then
Run ("Open_5sS2")
Worksheets("H15").Activate
ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 2 And Cells(c, 76) = 30 Then
Run ("Open_5sS2")
Worksheets("H30").Activate
ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 2 And Cells(c, 76) = 45 Then
Run ("Open_5sS2")
Worksheets("H45").Activate
ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 2 And Cells(c, 76) = 60 Then
Run ("Open_5sS2")
Worksheets("H60").Activate
ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 2 And Cells(c, 76) = 75 Then
Run ("Open_5sS2")
Worksheets("H75").Activate
ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 2 And Cells(c, 76) = 90 Then
Run ("Open_5sS2")
Worksheets("H90").Activate
ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 2 And Cells(c, 76) = 105 Then
Run ("Open_5sS2")
Worksheets("H105").Activate
ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 2 And Cells(c, 76) = 120 Then
Run ("Open_5sS2")
Worksheets("H120").Activate
ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 2 And Cells(c, 76) = 135 Then
Run ("Open_5sS2")
Worksheets("H135").Activate
ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 2 And Cells(c, 76) = 150 Then
Run ("Open_5sS2")
Worksheets("H150").Activate
ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 2 And Cells(c, 76) = 165 Then
Run ("Open_5sS2")
Worksheets("H165").Activate
ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 2 And Cells(c, 76) = 180 Then
Run ("Open_5sS2")
Worksheets("H180").Activate
ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 2 And Cells(c, 76) = 195 Then
Run ("Open_5sS2")
Worksheets("H195").Activate
ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 2 And Cells(c, 76) = 210 Then
Run ("Open_5sS2")
Worksheets("H210").Activate
ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 2 And Cells(c, 76) = 225 Then
Run ("Open_5sS2")
Worksheets("H225").Activate
ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 2 And Cells(c, 76) = 240 Then
Run ("Open_5sS2")
Worksheets("H240").Activate
ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 2 And Cells(c, 76) = 225 Then
Run ("Open_5sS2")
Worksheets("H255").Activate
ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 2 And Cells(c, 76) = 270 Then
Run ("Open_5sS2")
Worksheets("H270").Activate
ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 2 And Cells(c, 76) = 285 Then
Run ("Open_5sS2")
Worksheets("H285").Activate
ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 2 And Cells(c, 76) = 300 Then
Run ("Open_5sS2")
Worksheets("H300").Activate
ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 2 And Cells(c, 76) = 315 Then
Run ("Open_5sS2")
Worksheets("H315").Activate
ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 2 And Cells(c, 76) = 330 Then
Run ("Open_5sS2")
Worksheets("H330").Activate
ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 2 And Cells(c, 76) = 345 Then
Run ("Open_5sS2")
Worksheets("H345").Activate
ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 3 And Cells(c, 76) = 0 Then
Run ("Open_5sS3")
Worksheets("H0").Activate
ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 3 And Cells(c, 76) = 15 Then
Run ("Open_5sS3")
Worksheets("H15").Activate
ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 3 And Cells(c, 76) = 30 Then
Run ("Open_5sS3")
Worksheets("H30").Activate
ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 3 And Cells(c, 76) = 45 Then
Run ("Open_5sS3")
Worksheets("H45").Activate
ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 3 And Cells(c, 76) = 60 Then
Run ("Open_5sS3")
Worksheets("H60").Activate
ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 3 And Cells(c, 76) = 75 Then
Run ("Open_5sS3")
Worksheets("H75").Activate
ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 3 And Cells(c, 76) = 90 Then
Run ("Open_5sS3")
Worksheets("H90").Activate
ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 3 And Cells(c, 76) = 105 Then
Run ("Open_5sS3")
Worksheets("H105").Activate
ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 3 And Cells(c, 76) = 120 Then
Run ("Open_5sS3")
Worksheets("H120").Activate
ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 3 And Cells(c, 76) = 135 Then
Run ("Open_5sS3")
Worksheets("H135").Activate
ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 3 And Cells(c, 76) = 150 Then
Run ("Open_5sS3")
Worksheets("H150").Activate
ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 3 And Cells(c, 76) = 165 Then
Run ("Open_5sS3")
Worksheets("H165").Activate
ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 3 And Cells(c, 76) = 180 Then
Run ("Open_5sS3")
Worksheets("H180").Activate
ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 3 And Cells(c, 76) = 195 Then
Run ("Open_5sS3")
Worksheets("H195").Activate
ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 3 And Cells(c, 76) = 210 Then
Run ("Open_5sS3")
Worksheets("H210").Activate
ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 3 And Cells(c, 76) = 225 Then
Run ("Open_5sS3")
Worksheets("H225").Activate
ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 3 And Cells(c, 76) = 240 Then
Run ("Open_5sS3")
Worksheets("H240").Activate
ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 3 And Cells(c, 76) = 225 Then
Run ("Open_5sS3")
Worksheets("H255").Activate
ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 3 And Cells(c, 76) = 270 Then
Run ("Open_5sS3")
Worksheets("H270").Activate
ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 3 And Cells(c, 76) = 285 Then
Run ("Open_5sS3")
Worksheets("H285").Activate
ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 3 And Cells(c, 76) = 300 Then
Run ("Open_5sS3")
Worksheets("H300").Activate
ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 3 And Cells(c, 76) = 315 Then
Run ("Open_5sS3")
Worksheets("H315").Activate
ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 3 And Cells(c, 76) = 330 Then
Run ("Open_5sS3")
Worksheets("H330").Activate
ElseIf Cells(c, 74) = 5 And Cells(c, 75) = 3 And Cells(c, 76) = 345 Then
Run ("Open_5sS3")
Worksheets("H345").Activate
'6 Seconds
ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 1 And Cells(c, 76) = 0 Then
Run ("Open_6sS1")
Worksheets("H0").Activate
ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 1 And Cells(c, 76) = 15 Then
Run ("Open_6sS1")
Worksheets("H15").Activate
ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 1 And Cells(c, 76) = 30 Then
Run ("Open_6sS1")
Worksheets("H30").Activate
ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 1 And Cells(c, 76) = 45 Then
Run ("Open_6sS1")
Worksheets("H45").Activate
ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 1 And Cells(c, 76) = 60 Then
Run ("Open_6sS1")
Worksheets("H60").Activate
ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 1 And Cells(c, 76) = 75 Then
Run ("Open_6sS1")
Worksheets("H75").Activate
ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 1 And Cells(c, 76) = 90 Then
Run ("Open_6sS1")
Worksheets("H90").Activate
ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 1 And Cells(c, 76) = 105 Then
Run ("Open_6sS1")
Worksheets("H105").Activate
ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 1 And Cells(c, 76) = 120 Then
Run ("Open_6sS1")
Worksheets("H120").Activate
ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 1 And Cells(c, 76) = 135 Then
Run ("Open_6sS1")
Worksheets("H135").Activate
ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 1 And Cells(c, 76) = 150 Then
Run ("Open_6sS1")
Worksheets("H150").Activate
ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 1 And Cells(c, 76) = 165 Then
Run ("Open_6sS1")
Worksheets("H165").Activate
ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 1 And Cells(c, 76) = 180 Then
Run ("Open_6sS1")
Worksheets("H180").Activate
ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 1 And Cells(c, 76) = 195 Then
Run ("Open_6sS1")
Worksheets("H195").Activate
ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 1 And Cells(c, 76) = 210 Then
Run ("Open_6sS1")
Worksheets("H210").Activate
ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 1 And Cells(c, 76) = 225 Then
Run ("Open_6sS1")
Worksheets("H225").Activate
ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 1 And Cells(c, 76) = 240 Then
Run ("Open_6sS1")
Worksheets("H240").Activate
ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 1 And Cells(c, 76) = 225 Then
Run ("Open_6sS1")
Worksheets("H255").Activate
ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 1 And Cells(c, 76) = 270 Then
Run ("Open_6sS1")
Worksheets("H270").Activate
ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 1 And Cells(c, 76) = 285 Then
Run ("Open_6sS1")
Worksheets("H285").Activate
ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 1 And Cells(c, 76) = 300 Then
Run ("Open_6sS1")
Worksheets("H300").Activate
ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 1 And Cells(c, 76) = 315 Then
Run ("Open_6sS1")
Worksheets("H315").Activate
ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 1 And Cells(c, 76) = 330 Then
Run ("Open_6sS1")
Worksheets("H330").Activate
ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 1 And Cells(c, 76) = 345 Then
Run ("Open_6sS1")
Worksheets("H345").Activate
ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 2 And Cells(c, 76) = 0 Then
Run ("Open_6sS2")
Worksheets("H0").Activate
ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 2 And Cells(c, 76) = 15 Then
Run ("Open_6sS2")
Worksheets("H15").Activate
ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 2 And Cells(c, 76) = 30 Then
Run ("Open_6sS2")
Worksheets("H30").Activate
ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 2 And Cells(c, 76) = 45 Then
Run ("Open_6sS2")
Worksheets("H45").Activate
ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 2 And Cells(c, 76) = 60 Then
Run ("Open_6sS2")
Worksheets("H60").Activate
ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 2 And Cells(c, 76) = 75 Then
Run ("Open_6sS2")
Worksheets("H75").Activate
ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 2 And Cells(c, 76) = 90 Then
Run ("Open_6sS2")
Worksheets("H90").Activate
ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 2 And Cells(c, 76) = 105 Then
Run ("Open_6sS2")
Worksheets("H105").Activate
ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 2 And Cells(c, 76) = 120 Then
Run ("Open_6sS2")
Worksheets("H120").Activate
ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 2 And Cells(c, 76) = 135 Then
Run ("Open_6sS2")
Worksheets("H135").Activate
ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 2 And Cells(c, 76) = 150 Then
Run ("Open_6sS2")
Worksheets("H150").Activate
ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 2 And Cells(c, 76) = 165 Then
Run ("Open_6sS2")
Worksheets("H165").Activate
ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 2 And Cells(c, 76) = 180 Then
Run ("Open_6sS2")
Worksheets("H180").Activate
ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 2 And Cells(c, 76) = 195 Then
Run ("Open_6sS2")
Worksheets("H195").Activate
ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 2 And Cells(c, 76) = 210 Then
Run ("Open_6sS2")
Worksheets("H210").Activate
ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 2 And Cells(c, 76) = 225 Then
Run ("Open_6sS2")
Worksheets("H225").Activate
ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 2 And Cells(c, 76) = 240 Then
Run ("Open_6sS2")
Worksheets("H240").Activate
ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 2 And Cells(c, 76) = 225 Then
Run ("Open_6sS2")
Worksheets("H255").Activate
ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 2 And Cells(c, 76) = 270 Then
Run ("Open_6sS2")
Worksheets("H270").Activate
ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 2 And Cells(c, 76) = 285 Then
Run ("Open_6sS2")
Worksheets("H285").Activate
ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 2 And Cells(c, 76) = 300 Then
Run ("Open_6sS2")
Worksheets("H300").Activate
ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 2 And Cells(c, 76) = 315 Then
Run ("Open_6sS2")
Worksheets("H315").Activate
ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 2 And Cells(c, 76) = 330 Then
Run ("Open_6sS2")
Worksheets("H330").Activate
ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 2 And Cells(c, 76) = 345 Then
Run ("Open_6sS2")
Worksheets("H345").Activate
ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 3 And Cells(c, 76) = 0 Then
Run ("Open_6sS3")
Worksheets("H0").Activate
ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 3 And Cells(c, 76) = 15 Then
Run ("Open_6sS3")
Worksheets("H15").Activate
ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 3 And Cells(c, 76) = 30 Then
Run ("Open_6sS3")
Worksheets("H30").Activate
ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 3 And Cells(c, 76) = 45 Then
Run ("Open_6sS3")
Worksheets("H45").Activate
ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 3 And Cells(c, 76) = 60 Then
Run ("Open_6sS3")
Worksheets("H60").Activate
ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 3 And Cells(c, 76) = 75 Then
Run ("Open_6sS3")
Worksheets("H75").Activate
ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 3 And Cells(c, 76) = 90 Then
Run ("Open_6sS3")
Worksheets("H90").Activate
ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 3 And Cells(c, 76) = 105 Then
Run ("Open_6sS3")
Worksheets("H105").Activate
ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 3 And Cells(c, 76) = 120 Then
Run ("Open_6sS3")
Worksheets("H120").Activate
ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 3 And Cells(c, 76) = 135 Then
Run ("Open_6sS3")
Worksheets("H135").Activate
ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 3 And Cells(c, 76) = 150 Then
Run ("Open_6sS3")
Worksheets("H150").Activate
ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 3 And Cells(c, 76) = 165 Then
Run ("Open_6sS3")
Worksheets("H165").Activate
ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 3 And Cells(c, 76) = 180 Then
Run ("Open_6sS3")
Worksheets("H180").Activate
ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 3 And Cells(c, 76) = 195 Then
Run ("Open_6sS3")
Worksheets("H195").Activate
ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 3 And Cells(c, 76) = 210 Then
Run ("Open_6sS3")
Worksheets("H210").Activate
ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 3 And Cells(c, 76) = 225 Then
Run ("Open_6sS3")
Worksheets("H225").Activate
ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 3 And Cells(c, 76) = 240 Then
Run ("Open_6sS3")
Worksheets("H240").Activate
ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 3 And Cells(c, 76) = 225 Then
Run ("Open_6sS3")
Worksheets("H255").Activate
ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 3 And Cells(c, 76) = 270 Then
Run ("Open_6sS3")
Worksheets("H270").Activate
ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 3 And Cells(c, 76) = 285 Then
Run ("Open_6sS3")
Worksheets("H285").Activate
ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 3 And Cells(c, 76) = 300 Then
Run ("Open_6sS3")
Worksheets("H300").Activate
ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 3 And Cells(c, 76) = 315 Then
Run ("Open_6sS3")
Worksheets("H315").Activate
ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 3 And Cells(c, 76) = 330 Then
Run ("Open_6sS3")
Worksheets("H330").Activate
ElseIf Cells(c, 74) = 6 And Cells(c, 75) = 3 And Cells(c, 76) = 345 Then
Run ("Open_6sS3")
Worksheets("H345").Activate
End If
'Copy Value
Range(Cells(c + 251, 4), Cells(c + 251, 73)).Select
Selection.Copy
Windows("Mating Coco Load Phase 1 Summary xx.xlsm").Activate
Sheets("Concomitant").Select
'Paste Value
Range(Cells(c, 4), Cells(c, 73)).Select
Selection.PasteSpecial Paste:=xlPasteValues
Windows("Mating Coco Load Phase 1 Moses Output.xlsm").Close savechanges:=False
Next
End Sub
Thank you. I hope someone can help me.
Last edited by a moderator: