Macro Add Sheet Problems

J

JoeA4

New Member
Joined
Aug 8, 2012
Messages
6
Microsoft Excel 2007
Windows XP

My code works fine for creating the first 10 sheets but then stops. I'm not sure if that means I am copy-pasting too much for the document to handle or what.

In module1:

Private Sub Button1_click()
Call Device1
Call Device2
Call Device3
Call Device4
Call Device5
Call Device6
Call Device7
Call Device8
Call Device9
Call Device10
Call Device11
Call Device12
Call Device13
Call Device14
Call Device15
Call Device16
Call Device17
Call Device18
Call Device19
Call Device20
Call Device21
Call Device22
Call Device23
Call Device24
Call Device25
Call Device26
Call Device27
Call Device28
Call Device29
Call Device30
Call Device31
Call Device32
Call Device33
Call Device34
Call Device35
Call Device36
Call Device37
Call Device38
Call Device39
Call Device40
Call Device41
Call Device42
Call Device43
Call Device44
Call Device45
Call Device46
Call Device47
Call Device48
Call Device49
Call Device50
Call Device51
Call Device52
Call Device53
Call Device54
Call Device55
Call Device56
Call Device57
Call Device58
Call Device59
Call Device60
End Sub
Sub Device1()
If Not ActiveSheet.Range("D14").Value = "" Then
'begin add new sheet
'From http://www.mrexcel.com/archive/VBA/1869.html
Sheets("MS77").Select
Dim MS77 As String
Dim ActNm As String
With ActiveSheet
MS77 = .Name
End With
On Error Resume Next
Sheets("MS77").Name = Sheets("Checklist").Range("B14") & Sheets("Checklist").Range("C14") & Sheets("Checklist").Range("D14")
If Err.Number = 1004 Then ActiveSheet.Name = InputBox("Give name.")
If ActiveSheet.Name = ActNm Then GoTo NoName
On Error GoTo 0
With ActiveWorkbook.Sheets
.Add after:=Worksheets(Worksheets.Count)
End With
ActNm = ActiveSheet.Name
On Error Resume Next
ActiveSheet.Name = "MS77"
NoName: If Err.Number = 1004 Then ActiveSheet.Name = InputBox("Give name.")
If ActiveSheet.Name = ActNm Then GoTo NoName
On Error GoTo 0
'end add new sheet
'change new sheet column sizes
ActiveSheet.Columns("A:D").ColumnWidth = 2
ActiveSheet.Columns("E:E").ColumnWidth = 15
ActiveSheet.Columns("F:F").ColumnWidth = 34.86
ActiveSheet.Columns("G:G").ColumnWidth = 43
ActiveSheet.Columns("H:H").ColumnWidth = 15
'end change sizes
'begin copy over MS77 form
Worksheets(ActiveSheet.Index - 1).Select
ActiveSheet.Range("B2:H23").Select
Selection.Copy
Worksheets(ActiveSheet.Index + 1).Select
ActiveSheet.Range("B2").Select
ActiveSheet.Paste
ActiveSheet.Range("B9:D23").HorizontalAlignment = xlCenter
'end copy over MS77 form


The code goes on to include If-then statements on what else should be put in that B2:H23 region. The sub ends and Device 2 begins with the exact same code except for the next row down on the reference sheet "Checklist."

Here is the difference between Sub Device10 and Sub Device11:
Sub Device10()
If Not ActiveSheet.Range("D23").Value = "" Then
'-----------------------------^^^^-(change to the current row)
'begin add new sheet
'From http://www.mrexcel.com/archive/VBA/1869.html
Sheets("MS77").Select
With ActiveSheet
MS77 = .Name
End With
On Error Resume Next
Sheets("MS77").Name = Sheets("Checklist").Range("B23") & Sheets("Checklist").Range("C23") & Sheets("Checklist").Range("D23")
'----------------------------------------------------^^^^-------------------------------^^^^-------------------------------^^^^
If Err.Number = 1004 Then ActiveSheet.Name = InputBox("Give name.")
If ActiveSheet.Name = ActNm Then GoTo NoName
On Error GoTo 0
With ActiveWorkbook.Sheets
.Add after:=Worksheets(Worksheets.Count)
End With
ActNm = ActiveSheet.Name
On Error Resume Next
ActiveSheet.Name = "MS77"
NoName: If Err.Number = 1004 Then ActiveSheet.Name = InputBox("Give name.")
If ActiveSheet.Name = ActNm Then GoTo NoName
On Error GoTo 0
'THERE IS MORE CODE HERE but it is irrelevant to creating new sheets
End Sub

Sub Device11()
If Not ActiveSheet.Range("D24").Value = "" Then
'-----------------------------^^^^-(change to the current row)
'begin add new sheet
'From http://www.mrexcel.com/archive/VBA/1869.html
Sheets("MS77").Select
With ActiveSheet
MS77 = .Name
End With
On Error Resume Next
Sheets("MS77").Name = Sheets("Checklist").Range("B24") & Sheets("Checklist").Range("C24") & Sheets("Checklist").Range("D24")
'----------------------------------------------------^^^^-------------------------------^^^^-------------------------------^^^^
If Err.Number = 1004 Then ActiveSheet.Name = InputBox("Give name.")
If ActiveSheet.Name = ActNm Then GoTo NoName
On Error GoTo 0
With ActiveWorkbook.Sheets
.Add after:=Worksheets(Worksheets.Count)
End With
ActNm = ActiveSheet.Name
On Error Resume Next
ActiveSheet.Name = "MS77"
NoName: If Err.Number = 1004 Then ActiveSheet.Name = InputBox("Give name.")
If ActiveSheet.Name = ActNm Then GoTo NoName
On Error GoTo 0
'THERE IS MORE CODE HERE but it is irrelevant to creating new sheets
End Sub

Your help is much appreciated! If there is any additional info I can provide, let me know.
 
Sort by date Sort by votes
try putting in a save workbook to see if that helps. Also you could shorten your macro at the beginning with

Code: 
Sub CallDevice()
Dim i As Long
Dim mName as String
For i = 1 To 60
    mName = "Device" & i
    Application.Run mName
Next i
End Sub
 
Upvote 0
That call device code worked well; however, I am having a new issue with the add sheet code. This may have been an issue before but I exited the macro before I found it. The new issue is that after it adds the new sheet and renames it, wants to add more sheets with a prompt to rename them.

Here is the entire code for sub device1() :
Sub Device1()
If Not ActiveSheet.Range("D14").Value = "" Then
'-----------------------------^^^^-(change to the current row)
'begin add new sheet
'From http://www.mrexcel.com/archive/VBA/1869.html
Sheets("MS77").Select
Dim MS77 As String
Dim ActNm As String
With ActiveSheet
MS77 = .Name
End With
On Error Resume Next
Sheets("MS77").Name = Sheets("Checklist").Range("B14") & Sheets("Checklist").Range("C14") & Sheets("Checklist").Range("D14")
'----------------------------------------------------^^^^-------------------------------^^^^-------------------------------^^^^
If Err.Number = 1004 Then ActiveSheet.Name = InputBox("Give name.")
If ActiveSheet.Name = ActNm Then GoTo NoName
On Error GoTo 0
With ActiveWorkbook.Sheets
.Add after:=Worksheets(Worksheets.Count)
End With
ActNm = ActiveSheet.Name
On Error Resume Next
ActiveSheet.Name = "MS77"
NoName: If Err.Number = 1004 Then ActiveSheet.Name = InputBox("Give name.")
If ActiveSheet.Name = ActNm Then GoTo NoName
On Error GoTo 0
ThisWorkbook.Save
'end add new sheet
'change new sheet column sizes
ActiveSheet.Columns("A:D").ColumnWidth = 2
ActiveSheet.Columns("E:E").ColumnWidth = 15
ActiveSheet.Columns("F:F").ColumnWidth = 34.86
ActiveSheet.Columns("G:G").ColumnWidth = 43
ActiveSheet.Columns("H:H").ColumnWidth = 15
'end change sizes
'begin copy over MS77 form
Worksheets(ActiveSheet.Index - 1).Select
ActiveSheet.Range("B2:H23").Select
Selection.Copy
Worksheets(ActiveSheet.Index + 1).Select
ActiveSheet.Range("B2").Select
ActiveSheet.Paste
ActiveSheet.Range("B9:D23").HorizontalAlignment = xlCenter
'end copy over MS77 form
'begin info at top of MS77
Worksheets(ActiveSheet.Index - 1).Select
ActiveSheet.Range("F5").Value = Sheets("Checklist").Range("B14") & Sheets("Checklist").Range("C14") & Sheets("Checklist").Range("D14") & " " & Sheets("Checklist").Range("AI14")
'change these: ------------------------------------------------^^^^-------------------------------^^^^------------------------------^^^^^-------------------------------------^^^^^
'end info at top of MS77
'begin filling in checkboxes
ActiveSheet.Range("B9:D23").HorizontalAlignment = xlCenter
ActiveSheet.Range("D9:D23").Value = "X"
If Sheets("Checklist").Range("E14") = "X" Then
'-------------------------------------^^^
ActiveSheet.Range("D9").Value = ""
ActiveSheet.Range("B9").Value = "X"
End If
If Sheets("Checklist").Range("G14") = "X" Then
'-------------------------------------^^^
ActiveSheet.Range("D10").Value = ""
ActiveSheet.Range("B10").Value = "X"
End If
If Sheets("Checklist").Range("I14") = "X" Then
'-------------------------------------^^^
ActiveSheet.Range("D11").Value = ""
ActiveSheet.Range("B11").Value = "X"
End If
If Sheets("Checklist").Range("K14") = "X" Then
'-------------------------------------^^^
ActiveSheet.Range("D12").Value = ""
ActiveSheet.Range("B12").Value = "X"
End If
If Sheets("Checklist").Range("M14") = "X" Then
'-------------------------------------^^^
ActiveSheet.Range("D13").Value = ""
ActiveSheet.Range("B13").Value = "X"
End If
If Sheets("Checklist").Range("O14") = "X" Then
'-------------------------------------^^^
ActiveSheet.Range("D14").Value = ""
ActiveSheet.Range("B14").Value = "X"
End If
If Sheets("Checklist").Range("Q14") = "X" Then
'-------------------------------------^^^
ActiveSheet.Range("D15").Value = ""
ActiveSheet.Range("B15").Value = "X"
End If
If Sheets("Checklist").Range("S14") = "X" Then
'-------------------------------------^^^
ActiveSheet.Range("D16").Value = ""
ActiveSheet.Range("B16").Value = "X"
End If
If Sheets("Checklist").Range("U14") = "X" Then
'-------------------------------------^^^
ActiveSheet.Range("D17").Value = ""
ActiveSheet.Range("B17").Value = "X"
End If
If Sheets("Checklist").Range("W14") = "X" Then
'-------------------------------------^^^
ActiveSheet.Range("D18").Value = ""
ActiveSheet.Range("B18").Value = "X"
End If
If Sheets("Checklist").Range("Y14") = "X" Then
'-------------------------------------^^^
ActiveSheet.Range("D19").Value = ""
ActiveSheet.Range("B19").Value = "X"
End If
If Sheets("Checklist").Range("AA14") = "X" Then
'-------------------------------------^^^
ActiveSheet.Range("D20").Value = ""
ActiveSheet.Range("B20").Value = "X"
End If
If Sheets("Checklist").Range("AC14") = "X" Then
'-------------------------------------^^^
ActiveSheet.Range("D21").Value = ""
ActiveSheet.Range("B21").Value = "X"
End If
If Sheets("Checklist").Range("AE14") = "X" Then
'-------------------------------------^^^
ActiveSheet.Range("D22").Value = ""
ActiveSheet.Range("B22").Value = "X"
End If
If Sheets("Checklist").Range("AG14") = "X" Then
'-------------------------------------^^^
ActiveSheet.Range("D23").Value = ""
ActiveSheet.Range("B23").Value = "X"
End If
'end filling in checkboxes
'begin filling in descriptions
ActiveSheet.Range("G9").Value = Sheets("Checklist").Range("F14")
'--------------------------------------------------------------^^^^
ActiveSheet.Range("G10").Value = Sheets("Checklist").Range("H14")
'--------------------------------------------------------------^^^^
ActiveSheet.Range("G11").Value = Sheets("Checklist").Range("J14")
'--------------------------------------------------------------^^^^
ActiveSheet.Range("G12").Value = Sheets("Checklist").Range("L14")
'--------------------------------------------------------------^^^^
ActiveSheet.Range("G13").Value = Sheets("Checklist").Range("N14")
'--------------------------------------------------------------^^^^
ActiveSheet.Range("G14").Value = Sheets("Checklist").Range("P14")
'--------------------------------------------------------------^^^^
ActiveSheet.Range("G15").Value = Sheets("Checklist").Range("R14")
'--------------------------------------------------------------^^^^
ActiveSheet.Range("G16").Value = Sheets("Checklist").Range("T14")
'--------------------------------------------------------------^^^^
ActiveSheet.Range("G17").Value = Sheets("Checklist").Range("V14")
'--------------------------------------------------------------^^^^
ActiveSheet.Range("G18").Value = Sheets("Checklist").Range("X14")
'--------------------------------------------------------------^^^^
ActiveSheet.Range("G19").Value = Sheets("Checklist").Range("Z14")
'--------------------------------------------------------------^^^^
ActiveSheet.Range("G20").Value = Sheets("Checklist").Range("AB14")
'--------------------------------------------------------------^^^^
ActiveSheet.Range("G21").Value = Sheets("Checklist").Range("AD14")
'--------------------------------------------------------------^^^^
ActiveSheet.Range("G22").Value = Sheets("Checklist").Range("AF14")
'--------------------------------------------------------------^^^^
ActiveSheet.Range("G23").Value = Sheets("Checklist").Range("AH14")
'--------------------------------------------------------------^^^^
'end filling in descriptions
'PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS
'Parameter: If there is no discription and the scenario is applicable color description box red.
If ActiveSheet.Range("G9").Value = "" Then
If ActiveSheet.Range("B9").Value = "X" Then
ActiveSheet.Range("G9").Interior.ColorIndex = 3
ElseIf ActiveSheet.Range("C9").Value = "X" Then
ActiveSheet.Range("G9").Interior.ColorIndex = 3
End If
End If
If ActiveSheet.Range("G10").Value = "" Then
If ActiveSheet.Range("B10").Value = "X" Then
ActiveSheet.Range("G10").Interior.ColorIndex = 3
ElseIf ActiveSheet.Range("C10").Value = "X" Then
ActiveSheet.Range("G10").Interior.ColorIndex = 3
End If
End If
If ActiveSheet.Range("G11").Value = "" Then
If ActiveSheet.Range("B11").Value = "X" Then
ActiveSheet.Range("G11").Interior.ColorIndex = 3
ElseIf ActiveSheet.Range("C11").Value = "X" Then
ActiveSheet.Range("G11").Interior.ColorIndex = 3
End If
End If
If ActiveSheet.Range("G12").Value = "" Then
If ActiveSheet.Range("B12").Value = "X" Then
ActiveSheet.Range("G12").Interior.ColorIndex = 3
ElseIf ActiveSheet.Range("C12").Value = "X" Then
ActiveSheet.Range("G12").Interior.ColorIndex = 3
End If
End If
If ActiveSheet.Range("G13").Value = "" Then
If ActiveSheet.Range("B13").Value = "X" Then
ActiveSheet.Range("G13").Interior.ColorIndex = 3
ElseIf ActiveSheet.Range("C13").Value = "X" Then
ActiveSheet.Range("G13").Interior.ColorIndex = 3
End If
End If
If ActiveSheet.Range("G14").Value = "" Then
If ActiveSheet.Range("B14").Value = "X" Then
ActiveSheet.Range("G14").Interior.ColorIndex = 3
ElseIf ActiveSheet.Range("C14").Value = "X" Then
ActiveSheet.Range("G14").Interior.ColorIndex = 3
End If
End If
If ActiveSheet.Range("G15").Value = "" Then
If ActiveSheet.Range("B15").Value = "X" Then
ActiveSheet.Range("G15").Interior.ColorIndex = 3
ElseIf ActiveSheet.Range("C15").Value = "X" Then
ActiveSheet.Range("G15").Interior.ColorIndex = 3
End If
End If
If ActiveSheet.Range("G16").Value = "" Then
If ActiveSheet.Range("B16").Value = "X" Then
ActiveSheet.Range("G16").Interior.ColorIndex = 3
ElseIf ActiveSheet.Range("C16").Value = "X" Then
ActiveSheet.Range("G16").Interior.ColorIndex = 3
End If
End If
If ActiveSheet.Range("G17").Value = "" Then
If ActiveSheet.Range("B17").Value = "X" Then
ActiveSheet.Range("G17").Interior.ColorIndex = 3
ElseIf ActiveSheet.Range("C17").Value = "X" Then
ActiveSheet.Range("G17").Interior.ColorIndex = 3
End If
End If
If ActiveSheet.Range("G18").Value = "" Then
If ActiveSheet.Range("B18").Value = "X" Then
ActiveSheet.Range("G18").Interior.ColorIndex = 3
ElseIf ActiveSheet.Range("C18").Value = "X" Then
ActiveSheet.Range("G18").Interior.ColorIndex = 3
End If
End If
If ActiveSheet.Range("G19").Value = "" Then
If ActiveSheet.Range("B19").Value = "X" Then
ActiveSheet.Range("G19").Interior.ColorIndex = 3
ElseIf ActiveSheet.Range("C19").Value = "X" Then
ActiveSheet.Range("G19").Interior.ColorIndex = 3
End If
End If
If ActiveSheet.Range("G20").Value = "" Then
If ActiveSheet.Range("B20").Value = "X" Then
ActiveSheet.Range("G20").Interior.ColorIndex = 3
ElseIf ActiveSheet.Range("C20").Value = "X" Then
ActiveSheet.Range("G20").Interior.ColorIndex = 3
End If
End If
If ActiveSheet.Range("G21").Value = "" Then
If ActiveSheet.Range("B21").Value = "X" Then
ActiveSheet.Range("G21").Interior.ColorIndex = 3
ElseIf ActiveSheet.Range("C21").Value = "X" Then
ActiveSheet.Range("G21").Interior.ColorIndex = 3
End If
End If
If ActiveSheet.Range("G22").Value = "" Then
If ActiveSheet.Range("B22").Value = "X" Then
ActiveSheet.Range("G22").Interior.ColorIndex = 3
ElseIf ActiveSheet.Range("C22").Value = "X" Then
ActiveSheet.Range("G22").Interior.ColorIndex = 3
End If
End If
If ActiveSheet.Range("G23").Value = "" Then
If ActiveSheet.Range("B23").Value = "X" Then
ActiveSheet.Range("G23").Interior.ColorIndex = 3
ElseIf ActiveSheet.Range("C23").Value = "X" Then
ActiveSheet.Range("G23").Interior.ColorIndex = 3
End If
End If
'Parameter: If there is a description on a scenario that is listed as not applicable, color N/A box red.
If Not ActiveSheet.Range("G9").Value = "" Then
If ActiveSheet.Range("D9").Value = "X" Then
ActiveSheet.Range("D9").Interior.ColorIndex = 3
End If
End If
If Not ActiveSheet.Range("G10").Value = "" Then
If ActiveSheet.Range("D10").Value = "X" Then
ActiveSheet.Range("D10").Interior.ColorIndex = 3
End If
End If
If Not ActiveSheet.Range("G11").Value = "" Then
If ActiveSheet.Range("D11").Value = "X" Then
ActiveSheet.Range("D11").Interior.ColorIndex = 3
End If
End If
If Not ActiveSheet.Range("G12").Value = "" Then
If ActiveSheet.Range("D12").Value = "X" Then
ActiveSheet.Range("D12").Interior.ColorIndex = 3
End If
End If
If Not ActiveSheet.Range("G13").Value = "" Then
If ActiveSheet.Range("D13").Value = "X" Then
ActiveSheet.Range("D13").Interior.ColorIndex = 3
End If
End If
If Not ActiveSheet.Range("G14").Value = "" Then
If ActiveSheet.Range("D14").Value = "X" Then
ActiveSheet.Range("D14").Interior.ColorIndex = 3
End If
End If
If Not ActiveSheet.Range("G15").Value = "" Then
If ActiveSheet.Range("D15").Value = "X" Then
ActiveSheet.Range("D15").Interior.ColorIndex = 3
End If
End If
If Not ActiveSheet.Range("G16").Value = "" Then
If ActiveSheet.Range("D16").Value = "X" Then
ActiveSheet.Range("D16").Interior.ColorIndex = 3
End If
End If
If Not ActiveSheet.Range("G17").Value = "" Then
If ActiveSheet.Range("D17").Value = "X" Then
ActiveSheet.Range("D17").Interior.ColorIndex = 3
End If
End If
If Not ActiveSheet.Range("G18").Value = "" Then
If ActiveSheet.Range("D18").Value = "X" Then
ActiveSheet.Range("D18").Interior.ColorIndex = 3
End If
End If
If Not ActiveSheet.Range("G19").Value = "" Then
If ActiveSheet.Range("D19").Value = "X" Then
ActiveSheet.Range("D19").Interior.ColorIndex = 3
End If
End If
If Not ActiveSheet.Range("G20").Value = "" Then
If ActiveSheet.Range("D20").Value = "X" Then
ActiveSheet.Range("D20").Interior.ColorIndex = 3
End If
End If
If Not ActiveSheet.Range("G21").Value = "" Then
If ActiveSheet.Range("D21").Value = "X" Then
ActiveSheet.Range("D21").Interior.ColorIndex = 3
End If
End If
If Not ActiveSheet.Range("G22").Value = "" Then
If ActiveSheet.Range("D22").Value = "X" Then
ActiveSheet.Range("D22").Interior.ColorIndex = 3
End If
End If
If Not ActiveSheet.Range("G23").Value = "" Then
If ActiveSheet.Range("D23").Value = "X" Then
ActiveSheet.Range("D23").Interior.ColorIndex = 3
End If
End If
'end PARAMETERS section
End If
End Sub

Also, for future reference, how do you get the box to put the code in for a post on this forum?
 
Upvote 0
Removed the "On Error Resume Next" for the entire code. This fixed the repeating addition of sheets. The issue that remains is the macro only adds 10 total sheets before it stops. It should be able to add up to 60 sheets.
 
Upvote 0
also would you please add the code html around your macro, it makes it much easier to read your post. If you click on the "Go Advanced" button below you will have a few more options. You would select the macro code and then click on the # that will add the code html
 
Upvote 0
Here is the entire code:
Code: 
Private Sub Button1_click()
Dim i As Long
Dim mName As String
For i = 1 To 60
    mName = "Device" & i
    Application.Run mName
Next i
End Sub
Sub Device1()
    If Not ActiveSheet.Range("D14").Value = "" Then
'-----------------------------^^^^-(change to the current row)
'begin add new sheet
'From http://www.mrexcel.com/archive/VBA/1869.html
    Sheets("MS77").Select
    Dim MS77 As String
    Dim ActNm As String
    With ActiveSheet
    MS77 = .Name
    End With
    Sheets("MS77").Name = Sheets("Checklist").Range("B14") & Sheets("Checklist").Range("C14") & Sheets("Checklist").Range("D14")
'----------------------------------------------------^^^^-------------------------------^^^^-------------------------------^^^^
    If Err Then MsgBox "Invalid name!", vbCritical
    On Error GoTo 0
    Worksheets.Add after:=Worksheets(Worksheets.Count)
    Worksheets(Worksheets.Count).Name = "MS77"
    If Err Then MsgBox "Invalid name!", vbCritical
    On Error GoTo 0
'end add new sheet
'change new sheet column sizes
    ActiveSheet.Columns("A:D").ColumnWidth = 2
    ActiveSheet.Columns("E:E").ColumnWidth = 15
    ActiveSheet.Columns("F:F").ColumnWidth = 34.86
    ActiveSheet.Columns("G:G").ColumnWidth = 43
    ActiveSheet.Columns("H:H").ColumnWidth = 15
'end change sizes
'begin copy over MS77 form
    Worksheets(ActiveSheet.Index - 1).Select
    ActiveSheet.Range("B2:H23").Select
    Selection.Copy
    Worksheets(ActiveSheet.Index + 1).Select
    ActiveSheet.Range("B2").Select
    ActiveSheet.Paste
    ActiveSheet.Range("B9:D23").HorizontalAlignment = xlCenter
'end copy over MS77 form
'begin info at top of MS77
    Worksheets(ActiveSheet.Index - 1).Select
    ActiveSheet.Range("F5").Value = Sheets("Checklist").Range("B14") & Sheets("Checklist").Range("C14") & Sheets("Checklist").Range("D14") & " " & Sheets("Checklist").Range("AI14")
'change these: ------------------------------------------------^^^^-------------------------------^^^^------------------------------^^^^^-------------------------------------^^^^^
'end info at top of MS77
'begin filling in checkboxes
    ActiveSheet.Range("B9:D23").HorizontalAlignment = xlCenter
    ActiveSheet.Range("D9:D23").Value = "X"
        If Sheets("Checklist").Range("E14") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D9").Value = ""
        ActiveSheet.Range("B9").Value = "X"
        End If
        If Sheets("Checklist").Range("G14") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D10").Value = ""
        ActiveSheet.Range("B10").Value = "X"
        End If
        If Sheets("Checklist").Range("I14") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D11").Value = ""
        ActiveSheet.Range("B11").Value = "X"
        End If
        If Sheets("Checklist").Range("K14") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D12").Value = ""
        ActiveSheet.Range("B12").Value = "X"
        End If
        If Sheets("Checklist").Range("M14") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D13").Value = ""
        ActiveSheet.Range("B13").Value = "X"
        End If
        If Sheets("Checklist").Range("O14") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D14").Value = ""
        ActiveSheet.Range("B14").Value = "X"
        End If
        If Sheets("Checklist").Range("Q14") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D15").Value = ""
        ActiveSheet.Range("B15").Value = "X"
        End If
        If Sheets("Checklist").Range("S14") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D16").Value = ""
        ActiveSheet.Range("B16").Value = "X"
        End If
        If Sheets("Checklist").Range("U14") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D17").Value = ""
        ActiveSheet.Range("B17").Value = "X"
        End If
        If Sheets("Checklist").Range("W14") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D18").Value = ""
        ActiveSheet.Range("B18").Value = "X"
        End If
        If Sheets("Checklist").Range("Y14") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D19").Value = ""
        ActiveSheet.Range("B19").Value = "X"
        End If
        If Sheets("Checklist").Range("AA14") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D20").Value = ""
        ActiveSheet.Range("B20").Value = "X"
        End If
        If Sheets("Checklist").Range("AC14") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D21").Value = ""
        ActiveSheet.Range("B21").Value = "X"
        End If
        If Sheets("Checklist").Range("AE14") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D22").Value = ""
        ActiveSheet.Range("B22").Value = "X"
        End If
        If Sheets("Checklist").Range("AG14") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D23").Value = ""
        ActiveSheet.Range("B23").Value = "X"
        End If
'end filling in checkboxes
'begin filling in descriptions
    ActiveSheet.Range("G9").Value = Sheets("Checklist").Range("F14")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G10").Value = Sheets("Checklist").Range("H14")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G11").Value = Sheets("Checklist").Range("J14")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G12").Value = Sheets("Checklist").Range("L14")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G13").Value = Sheets("Checklist").Range("N14")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G14").Value = Sheets("Checklist").Range("P14")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G15").Value = Sheets("Checklist").Range("R14")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G16").Value = Sheets("Checklist").Range("T14")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G17").Value = Sheets("Checklist").Range("V14")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G18").Value = Sheets("Checklist").Range("X14")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G19").Value = Sheets("Checklist").Range("Z14")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G20").Value = Sheets("Checklist").Range("AB14")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G21").Value = Sheets("Checklist").Range("AD14")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G22").Value = Sheets("Checklist").Range("AF14")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G23").Value = Sheets("Checklist").Range("AH14")
'--------------------------------------------------------------^^^^
'end filling in descriptions
'PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS
'Parameter: If there is no discription and the scenario is applicable color description box red.
If ActiveSheet.Range("G9").Value = "" Then
    If ActiveSheet.Range("B9").Value = "X" Then
    ActiveSheet.Range("G9").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C9").Value = "X" Then
    ActiveSheet.Range("G9").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G10").Value = "" Then
    If ActiveSheet.Range("B10").Value = "X" Then
    ActiveSheet.Range("G10").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C10").Value = "X" Then
    ActiveSheet.Range("G10").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G11").Value = "" Then
    If ActiveSheet.Range("B11").Value = "X" Then
    ActiveSheet.Range("G11").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C11").Value = "X" Then
    ActiveSheet.Range("G11").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G12").Value = "" Then
    If ActiveSheet.Range("B12").Value = "X" Then
    ActiveSheet.Range("G12").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C12").Value = "X" Then
    ActiveSheet.Range("G12").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G13").Value = "" Then
    If ActiveSheet.Range("B13").Value = "X" Then
    ActiveSheet.Range("G13").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C13").Value = "X" Then
    ActiveSheet.Range("G13").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G14").Value = "" Then
    If ActiveSheet.Range("B14").Value = "X" Then
    ActiveSheet.Range("G14").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C14").Value = "X" Then
    ActiveSheet.Range("G14").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G15").Value = "" Then
    If ActiveSheet.Range("B15").Value = "X" Then
    ActiveSheet.Range("G15").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C15").Value = "X" Then
    ActiveSheet.Range("G15").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G16").Value = "" Then
    If ActiveSheet.Range("B16").Value = "X" Then
    ActiveSheet.Range("G16").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C16").Value = "X" Then
    ActiveSheet.Range("G16").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G17").Value = "" Then
    If ActiveSheet.Range("B17").Value = "X" Then
    ActiveSheet.Range("G17").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C17").Value = "X" Then
    ActiveSheet.Range("G17").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G18").Value = "" Then
    If ActiveSheet.Range("B18").Value = "X" Then
    ActiveSheet.Range("G18").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C18").Value = "X" Then
    ActiveSheet.Range("G18").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G19").Value = "" Then
    If ActiveSheet.Range("B19").Value = "X" Then
    ActiveSheet.Range("G19").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C19").Value = "X" Then
    ActiveSheet.Range("G19").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G20").Value = "" Then
    If ActiveSheet.Range("B20").Value = "X" Then
    ActiveSheet.Range("G20").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C20").Value = "X" Then
    ActiveSheet.Range("G20").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G21").Value = "" Then
    If ActiveSheet.Range("B21").Value = "X" Then
    ActiveSheet.Range("G21").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C21").Value = "X" Then
    ActiveSheet.Range("G21").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G22").Value = "" Then
    If ActiveSheet.Range("B22").Value = "X" Then
    ActiveSheet.Range("G22").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C22").Value = "X" Then
    ActiveSheet.Range("G22").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G23").Value = "" Then
    If ActiveSheet.Range("B23").Value = "X" Then
    ActiveSheet.Range("G23").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C23").Value = "X" Then
    ActiveSheet.Range("G23").Interior.ColorIndex = 3
    End If
End If
'Parameter: If there is a description on a scenario that is listed as not applicable, color N/A box red.
If Not ActiveSheet.Range("G9").Value = "" Then
    If ActiveSheet.Range("D9").Value = "X" Then
    ActiveSheet.Range("D9").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G10").Value = "" Then
    If ActiveSheet.Range("D10").Value = "X" Then
    ActiveSheet.Range("D10").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G11").Value = "" Then
    If ActiveSheet.Range("D11").Value = "X" Then
    ActiveSheet.Range("D11").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G12").Value = "" Then
    If ActiveSheet.Range("D12").Value = "X" Then
    ActiveSheet.Range("D12").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G13").Value = "" Then
    If ActiveSheet.Range("D13").Value = "X" Then
    ActiveSheet.Range("D13").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G14").Value = "" Then
    If ActiveSheet.Range("D14").Value = "X" Then
    ActiveSheet.Range("D14").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G15").Value = "" Then
    If ActiveSheet.Range("D15").Value = "X" Then
    ActiveSheet.Range("D15").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G16").Value = "" Then
    If ActiveSheet.Range("D16").Value = "X" Then
    ActiveSheet.Range("D16").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G17").Value = "" Then
    If ActiveSheet.Range("D17").Value = "X" Then
    ActiveSheet.Range("D17").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G18").Value = "" Then
    If ActiveSheet.Range("D18").Value = "X" Then
    ActiveSheet.Range("D18").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G19").Value = "" Then
    If ActiveSheet.Range("D19").Value = "X" Then
    ActiveSheet.Range("D19").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G20").Value = "" Then
    If ActiveSheet.Range("D20").Value = "X" Then
    ActiveSheet.Range("D20").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G21").Value = "" Then
    If ActiveSheet.Range("D21").Value = "X" Then
    ActiveSheet.Range("D21").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G22").Value = "" Then
    If ActiveSheet.Range("D22").Value = "X" Then
    ActiveSheet.Range("D22").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G23").Value = "" Then
    If ActiveSheet.Range("D23").Value = "X" Then
    ActiveSheet.Range("D23").Interior.ColorIndex = 3
    End If
End If
'end PARAMETERS section
End If
End Sub
Sub Device2()
    If Not ActiveSheet.Range("D15").Value = "" Then
'-----------------------------^^^^-(change to the current row)
'begin add new sheet
'From http://www.mrexcel.com/archive/VBA/1869.html
    Sheets("MS77").Select
    With ActiveSheet
    MS77 = .Name
    End With
     
    Sheets("MS77").Name = Sheets("Checklist").Range("B15") & Sheets("Checklist").Range("C15") & Sheets("Checklist").Range("D15")
'----------------------------------------------------^^^^-------------------------------^^^^-------------------------------^^^^
    If Err Then MsgBox "Invalid name!", vbCritical
    On Error GoTo 0
    Worksheets.Add after:=Worksheets(Worksheets.Count)
    Worksheets(Worksheets.Count).Name = "MS77"
    If Err Then MsgBox "Invalid name!", vbCritical
    On Error GoTo 0
'end add new sheet
'change new sheet column sizes
    ActiveSheet.Columns("A:D").ColumnWidth = 2
    ActiveSheet.Columns("E:E").ColumnWidth = 15
    ActiveSheet.Columns("F:F").ColumnWidth = 34.86
    ActiveSheet.Columns("G:G").ColumnWidth = 43
    ActiveSheet.Columns("H:H").ColumnWidth = 15
'end change sizes
'begin copy over MS77 form
    Worksheets(ActiveSheet.Index - 1).Select
    ActiveSheet.Range("B2:H23").Select
    Selection.Copy
    Worksheets(ActiveSheet.Index + 1).Select
    ActiveSheet.Range("B2").Select
    ActiveSheet.Paste
    ActiveSheet.Range("B9:D23").HorizontalAlignment = xlCenter
'end copy over MS77 form
'begin info at top of MS77
    Worksheets(ActiveSheet.Index - 1).Select
    ActiveSheet.Range("F5").Value = Sheets("Checklist").Range("B15") & Sheets("Checklist").Range("C15") & Sheets("Checklist").Range("D15") & " " & Sheets("Checklist").Range("AI15")
'change these: ------------------------------------------------^^^^-------------------------------^^^^------------------------------^^^^^-------------------------------------^^^^^
'end info at top of MS77
'begin filling in checkboxes
    ActiveSheet.Range("B9:D23").HorizontalAlignment = xlCenter
    ActiveSheet.Range("D9:D23").Value = "X"
        If Sheets("Checklist").Range("E15") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D9").Value = ""
        ActiveSheet.Range("B9").Value = "X"
        End If
        If Sheets("Checklist").Range("G15") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D10").Value = ""
        ActiveSheet.Range("B10").Value = "X"
        End If
        If Sheets("Checklist").Range("I15") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D11").Value = ""
        ActiveSheet.Range("B11").Value = "X"
        End If
        If Sheets("Checklist").Range("K15") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D12").Value = ""
        ActiveSheet.Range("B12").Value = "X"
        End If
        If Sheets("Checklist").Range("M15") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D13").Value = ""
        ActiveSheet.Range("B13").Value = "X"
        End If
        If Sheets("Checklist").Range("O15") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D14").Value = ""
        ActiveSheet.Range("B14").Value = "X"
        End If
        If Sheets("Checklist").Range("Q15") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D15").Value = ""
        ActiveSheet.Range("B15").Value = "X"
        End If
        If Sheets("Checklist").Range("S15") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D16").Value = ""
        ActiveSheet.Range("B16").Value = "X"
        End If
        If Sheets("Checklist").Range("U15") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D17").Value = ""
        ActiveSheet.Range("B17").Value = "X"
        End If
        If Sheets("Checklist").Range("W15") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D18").Value = ""
        ActiveSheet.Range("B18").Value = "X"
        End If
        If Sheets("Checklist").Range("Y15") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D19").Value = ""
        ActiveSheet.Range("B19").Value = "X"
        End If
        If Sheets("Checklist").Range("AA15") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D20").Value = ""
        ActiveSheet.Range("B20").Value = "X"
        End If
        If Sheets("Checklist").Range("AC15") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D21").Value = ""
        ActiveSheet.Range("B21").Value = "X"
        End If
        If Sheets("Checklist").Range("AE15") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D22").Value = ""
        ActiveSheet.Range("B22").Value = "X"
        End If
        If Sheets("Checklist").Range("AG15") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D23").Value = ""
        ActiveSheet.Range("B23").Value = "X"
        End If
'end filling in checkboxes
'begin filling in descriptions
    ActiveSheet.Range("G9").Value = Sheets("Checklist").Range("F15")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G10").Value = Sheets("Checklist").Range("H15")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G11").Value = Sheets("Checklist").Range("J15")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G12").Value = Sheets("Checklist").Range("L15")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G13").Value = Sheets("Checklist").Range("N15")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G14").Value = Sheets("Checklist").Range("P15")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G15").Value = Sheets("Checklist").Range("R15")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G16").Value = Sheets("Checklist").Range("T15")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G17").Value = Sheets("Checklist").Range("V15")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G18").Value = Sheets("Checklist").Range("X15")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G19").Value = Sheets("Checklist").Range("Z15")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G20").Value = Sheets("Checklist").Range("AB15")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G21").Value = Sheets("Checklist").Range("AD15")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G22").Value = Sheets("Checklist").Range("AF15")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G23").Value = Sheets("Checklist").Range("AH15")
'--------------------------------------------------------------^^^^
'end filling in descriptions
'PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS
'Parameter: If there is no discription and the scenario is applicable color description box red.
If ActiveSheet.Range("G9").Value = "" Then
    If ActiveSheet.Range("B9").Value = "X" Then
    ActiveSheet.Range("G9").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C9").Value = "X" Then
    ActiveSheet.Range("G9").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G10").Value = "" Then
    If ActiveSheet.Range("B10").Value = "X" Then
    ActiveSheet.Range("G10").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C10").Value = "X" Then
    ActiveSheet.Range("G10").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G11").Value = "" Then
    If ActiveSheet.Range("B11").Value = "X" Then
    ActiveSheet.Range("G11").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C11").Value = "X" Then
    ActiveSheet.Range("G11").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G12").Value = "" Then
    If ActiveSheet.Range("B12").Value = "X" Then
    ActiveSheet.Range("G12").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C12").Value = "X" Then
    ActiveSheet.Range("G12").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G13").Value = "" Then
    If ActiveSheet.Range("B13").Value = "X" Then
    ActiveSheet.Range("G13").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C13").Value = "X" Then
    ActiveSheet.Range("G13").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G14").Value = "" Then
    If ActiveSheet.Range("B14").Value = "X" Then
    ActiveSheet.Range("G14").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C14").Value = "X" Then
    ActiveSheet.Range("G14").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G15").Value = "" Then
    If ActiveSheet.Range("B15").Value = "X" Then
    ActiveSheet.Range("G15").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C15").Value = "X" Then
    ActiveSheet.Range("G15").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G16").Value = "" Then
    If ActiveSheet.Range("B16").Value = "X" Then
    ActiveSheet.Range("G16").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C16").Value = "X" Then
    ActiveSheet.Range("G16").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G17").Value = "" Then
    If ActiveSheet.Range("B17").Value = "X" Then
    ActiveSheet.Range("G17").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C17").Value = "X" Then
    ActiveSheet.Range("G17").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G18").Value = "" Then
    If ActiveSheet.Range("B18").Value = "X" Then
    ActiveSheet.Range("G18").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C18").Value = "X" Then
    ActiveSheet.Range("G18").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G19").Value = "" Then
    If ActiveSheet.Range("B19").Value = "X" Then
    ActiveSheet.Range("G19").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C19").Value = "X" Then
    ActiveSheet.Range("G19").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G20").Value = "" Then
    If ActiveSheet.Range("B20").Value = "X" Then
    ActiveSheet.Range("G20").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C20").Value = "X" Then
    ActiveSheet.Range("G20").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G21").Value = "" Then
    If ActiveSheet.Range("B21").Value = "X" Then
    ActiveSheet.Range("G21").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C21").Value = "X" Then
    ActiveSheet.Range("G21").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G22").Value = "" Then
    If ActiveSheet.Range("B22").Value = "X" Then
    ActiveSheet.Range("G22").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C22").Value = "X" Then
    ActiveSheet.Range("G22").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G23").Value = "" Then
    If ActiveSheet.Range("B23").Value = "X" Then
    ActiveSheet.Range("G23").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C23").Value = "X" Then
    ActiveSheet.Range("G23").Interior.ColorIndex = 3
    End If
End If
'Parameter: If there is a description on a scenario that is listed as not applicable, color N/A box red.
If Not ActiveSheet.Range("G9").Value = "" Then
    If ActiveSheet.Range("D9").Value = "X" Then
    ActiveSheet.Range("D9").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G10").Value = "" Then
    If ActiveSheet.Range("D10").Value = "X" Then
    ActiveSheet.Range("D10").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G11").Value = "" Then
    If ActiveSheet.Range("D11").Value = "X" Then
    ActiveSheet.Range("D11").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G12").Value = "" Then
    If ActiveSheet.Range("D12").Value = "X" Then
    ActiveSheet.Range("D12").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G13").Value = "" Then
    If ActiveSheet.Range("D13").Value = "X" Then
    ActiveSheet.Range("D13").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G14").Value = "" Then
    If ActiveSheet.Range("D14").Value = "X" Then
    ActiveSheet.Range("D14").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G15").Value = "" Then
    If ActiveSheet.Range("D15").Value = "X" Then
    ActiveSheet.Range("D15").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G16").Value = "" Then
    If ActiveSheet.Range("D16").Value = "X" Then
    ActiveSheet.Range("D16").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G17").Value = "" Then
    If ActiveSheet.Range("D17").Value = "X" Then
    ActiveSheet.Range("D17").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G18").Value = "" Then
    If ActiveSheet.Range("D18").Value = "X" Then
    ActiveSheet.Range("D18").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G19").Value = "" Then
    If ActiveSheet.Range("D19").Value = "X" Then
    ActiveSheet.Range("D19").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G20").Value = "" Then
    If ActiveSheet.Range("D20").Value = "X" Then
    ActiveSheet.Range("D20").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G21").Value = "" Then
    If ActiveSheet.Range("D21").Value = "X" Then
    ActiveSheet.Range("D21").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G22").Value = "" Then
    If ActiveSheet.Range("D22").Value = "X" Then
    ActiveSheet.Range("D22").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G23").Value = "" Then
    If ActiveSheet.Range("D23").Value = "X" Then
    ActiveSheet.Range("D23").Interior.ColorIndex = 3
    End If
End If
'end PARAMETERS section
End If
End Sub
Sub Device3()
    If Not ActiveSheet.Range("D16").Value = "" Then
'-----------------------------^^^^-(change to the current row)
'begin add new sheet
'From http://www.mrexcel.com/archive/VBA/1869.html
    Sheets("MS77").Select
    With ActiveSheet
    MS77 = .Name
    End With
     
    Sheets("MS77").Name = Sheets("Checklist").Range("B16") & Sheets("Checklist").Range("C16") & Sheets("Checklist").Range("D16")
'----------------------------------------------------^^^^-------------------------------^^^^-------------------------------^^^^
    If Err Then MsgBox "Invalid name!", vbCritical
    On Error GoTo 0
    Worksheets.Add after:=Worksheets(Worksheets.Count)
    Worksheets(Worksheets.Count).Name = "MS77"
    If Err Then MsgBox "Invalid name!", vbCritical
    On Error GoTo 0
'end add new sheet
'change new sheet column sizes
    ActiveSheet.Columns("A:D").ColumnWidth = 2
    ActiveSheet.Columns("E:E").ColumnWidth = 15
    ActiveSheet.Columns("F:F").ColumnWidth = 34.86
    ActiveSheet.Columns("G:G").ColumnWidth = 43
    ActiveSheet.Columns("H:H").ColumnWidth = 15
'end change sizes
'begin copy over MS77 form
    Worksheets(ActiveSheet.Index - 1).Select
    ActiveSheet.Range("B2:H23").Select
    Selection.Copy
    Worksheets(ActiveSheet.Index + 1).Select
    ActiveSheet.Range("B2").Select
    ActiveSheet.Paste
    ActiveSheet.Range("B9:D23").HorizontalAlignment = xlCenter
'end copy over MS77 form
'begin info at top of MS77
    Worksheets(ActiveSheet.Index - 1).Select
    ActiveSheet.Range("F5").Value = Sheets("Checklist").Range("B16") & Sheets("Checklist").Range("C16") & Sheets("Checklist").Range("D16") & " " & Sheets("Checklist").Range("AI16")
'change these: ------------------------------------------------^^^^-------------------------------^^^^------------------------------^^^^^-------------------------------------^^^^^
'end info at top of MS77
'begin filling in checkboxes
    ActiveSheet.Range("B9:D23").HorizontalAlignment = xlCenter
    ActiveSheet.Range("D9:D23").Value = "X"
        If Sheets("Checklist").Range("E16") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D9").Value = ""
        ActiveSheet.Range("B9").Value = "X"
        End If
        If Sheets("Checklist").Range("G16") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D10").Value = ""
        ActiveSheet.Range("B10").Value = "X"
        End If
        If Sheets("Checklist").Range("I16") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D11").Value = ""
        ActiveSheet.Range("B11").Value = "X"
        End If
        If Sheets("Checklist").Range("K16") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D12").Value = ""
        ActiveSheet.Range("B12").Value = "X"
        End If
        If Sheets("Checklist").Range("M16") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D13").Value = ""
        ActiveSheet.Range("B13").Value = "X"
        End If
        If Sheets("Checklist").Range("O16") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D14").Value = ""
        ActiveSheet.Range("B14").Value = "X"
        End If
        If Sheets("Checklist").Range("Q16") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D15").Value = ""
        ActiveSheet.Range("B15").Value = "X"
        End If
        If Sheets("Checklist").Range("S16") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D16").Value = ""
        ActiveSheet.Range("B16").Value = "X"
        End If
        If Sheets("Checklist").Range("U16") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D17").Value = ""
        ActiveSheet.Range("B17").Value = "X"
        End If
        If Sheets("Checklist").Range("W16") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D18").Value = ""
        ActiveSheet.Range("B18").Value = "X"
        End If
        If Sheets("Checklist").Range("Y16") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D19").Value = ""
        ActiveSheet.Range("B19").Value = "X"
        End If
        If Sheets("Checklist").Range("AA16") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D20").Value = ""
        ActiveSheet.Range("B20").Value = "X"
        End If
        If Sheets("Checklist").Range("AC16") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D21").Value = ""
        ActiveSheet.Range("B21").Value = "X"
        End If
        If Sheets("Checklist").Range("AE16") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D22").Value = ""
        ActiveSheet.Range("B22").Value = "X"
        End If
        If Sheets("Checklist").Range("AG16") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D23").Value = ""
        ActiveSheet.Range("B23").Value = "X"
        End If
'end filling in checkboxes
'begin filling in descriptions
    ActiveSheet.Range("G9").Value = Sheets("Checklist").Range("F16")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G10").Value = Sheets("Checklist").Range("H16")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G11").Value = Sheets("Checklist").Range("J16")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G12").Value = Sheets("Checklist").Range("L16")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G13").Value = Sheets("Checklist").Range("N16")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G14").Value = Sheets("Checklist").Range("P16")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G15").Value = Sheets("Checklist").Range("R16")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G16").Value = Sheets("Checklist").Range("T16")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G17").Value = Sheets("Checklist").Range("V16")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G18").Value = Sheets("Checklist").Range("X16")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G19").Value = Sheets("Checklist").Range("Z16")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G20").Value = Sheets("Checklist").Range("AB16")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G21").Value = Sheets("Checklist").Range("AD16")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G22").Value = Sheets("Checklist").Range("AF16")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G23").Value = Sheets("Checklist").Range("AH16")
'--------------------------------------------------------------^^^^
'end filling in descriptions
'PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS
'Parameter: If there is no discription and the scenario is applicable color description box red.
If ActiveSheet.Range("G9").Value = "" Then
    If ActiveSheet.Range("B9").Value = "X" Then
    ActiveSheet.Range("G9").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C9").Value = "X" Then
    ActiveSheet.Range("G9").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G10").Value = "" Then
    If ActiveSheet.Range("B10").Value = "X" Then
    ActiveSheet.Range("G10").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C10").Value = "X" Then
    ActiveSheet.Range("G10").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G11").Value = "" Then
    If ActiveSheet.Range("B11").Value = "X" Then
    ActiveSheet.Range("G11").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C11").Value = "X" Then
    ActiveSheet.Range("G11").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G12").Value = "" Then
    If ActiveSheet.Range("B12").Value = "X" Then
    ActiveSheet.Range("G12").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C12").Value = "X" Then
    ActiveSheet.Range("G12").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G13").Value = "" Then
    If ActiveSheet.Range("B13").Value = "X" Then
    ActiveSheet.Range("G13").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C13").Value = "X" Then
    ActiveSheet.Range("G13").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G14").Value = "" Then
    If ActiveSheet.Range("B14").Value = "X" Then
    ActiveSheet.Range("G14").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C14").Value = "X" Then
    ActiveSheet.Range("G14").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G15").Value = "" Then
    If ActiveSheet.Range("B15").Value = "X" Then
    ActiveSheet.Range("G15").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C15").Value = "X" Then
    ActiveSheet.Range("G15").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G16").Value = "" Then
    If ActiveSheet.Range("B16").Value = "X" Then
    ActiveSheet.Range("G16").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C16").Value = "X" Then
    ActiveSheet.Range("G16").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G17").Value = "" Then
    If ActiveSheet.Range("B17").Value = "X" Then
    ActiveSheet.Range("G17").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C17").Value = "X" Then
    ActiveSheet.Range("G17").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G18").Value = "" Then
    If ActiveSheet.Range("B18").Value = "X" Then
    ActiveSheet.Range("G18").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C18").Value = "X" Then
    ActiveSheet.Range("G18").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G19").Value = "" Then
    If ActiveSheet.Range("B19").Value = "X" Then
    ActiveSheet.Range("G19").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C19").Value = "X" Then
    ActiveSheet.Range("G19").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G20").Value = "" Then
    If ActiveSheet.Range("B20").Value = "X" Then
    ActiveSheet.Range("G20").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C20").Value = "X" Then
    ActiveSheet.Range("G20").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G21").Value = "" Then
    If ActiveSheet.Range("B21").Value = "X" Then
    ActiveSheet.Range("G21").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C21").Value = "X" Then
    ActiveSheet.Range("G21").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G22").Value = "" Then
    If ActiveSheet.Range("B22").Value = "X" Then
    ActiveSheet.Range("G22").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C22").Value = "X" Then
    ActiveSheet.Range("G22").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G23").Value = "" Then
    If ActiveSheet.Range("B23").Value = "X" Then
    ActiveSheet.Range("G23").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C23").Value = "X" Then
    ActiveSheet.Range("G23").Interior.ColorIndex = 3
    End If
End If
'Parameter: If there is a description on a scenario that is listed as not applicable, color N/A box red.
If Not ActiveSheet.Range("G9").Value = "" Then
    If ActiveSheet.Range("D9").Value = "X" Then
    ActiveSheet.Range("D9").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G10").Value = "" Then
    If ActiveSheet.Range("D10").Value = "X" Then
    ActiveSheet.Range("D10").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G11").Value = "" Then
    If ActiveSheet.Range("D11").Value = "X" Then
    ActiveSheet.Range("D11").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G12").Value = "" Then
    If ActiveSheet.Range("D12").Value = "X" Then
    ActiveSheet.Range("D12").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G13").Value = "" Then
    If ActiveSheet.Range("D13").Value = "X" Then
    ActiveSheet.Range("D13").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G14").Value = "" Then
    If ActiveSheet.Range("D14").Value = "X" Then
    ActiveSheet.Range("D14").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G15").Value = "" Then
    If ActiveSheet.Range("D15").Value = "X" Then
    ActiveSheet.Range("D15").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G16").Value = "" Then
    If ActiveSheet.Range("D16").Value = "X" Then
    ActiveSheet.Range("D16").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G17").Value = "" Then
    If ActiveSheet.Range("D17").Value = "X" Then
    ActiveSheet.Range("D17").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G18").Value = "" Then
    If ActiveSheet.Range("D18").Value = "X" Then
    ActiveSheet.Range("D18").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G19").Value = "" Then
    If ActiveSheet.Range("D19").Value = "X" Then
    ActiveSheet.Range("D19").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G20").Value = "" Then
    If ActiveSheet.Range("D20").Value = "X" Then
    ActiveSheet.Range("D20").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G21").Value = "" Then
    If ActiveSheet.Range("D21").Value = "X" Then
    ActiveSheet.Range("D21").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G22").Value = "" Then
    If ActiveSheet.Range("D22").Value = "X" Then
    ActiveSheet.Range("D22").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G23").Value = "" Then
    If ActiveSheet.Range("D23").Value = "X" Then
    ActiveSheet.Range("D23").Interior.ColorIndex = 3
    End If
End If
'end PARAMETERS section
End If
End Sub
Sub Device4()
    If Not ActiveSheet.Range("D17").Value = "" Then
'-----------------------------^^^^-(change to the current row)
'begin add new sheet
'From http://www.mrexcel.com/archive/VBA/1869.html
    Sheets("MS77").Select
    With ActiveSheet
    MS77 = .Name
    End With
     
    Sheets("MS77").Name = Sheets("Checklist").Range("B17") & Sheets("Checklist").Range("C17") & Sheets("Checklist").Range("D17")
'----------------------------------------------------^^^^-------------------------------^^^^-------------------------------^^^^
    If Err Then MsgBox "Invalid name!", vbCritical
    On Error GoTo 0
    Worksheets.Add after:=Worksheets(Worksheets.Count)
    Worksheets(Worksheets.Count).Name = "MS77"
    If Err Then MsgBox "Invalid name!", vbCritical
    On Error GoTo 0
'end add new sheet
'change new sheet column sizes
    ActiveSheet.Columns("A:D").ColumnWidth = 2
    ActiveSheet.Columns("E:E").ColumnWidth = 15
    ActiveSheet.Columns("F:F").ColumnWidth = 34.86
    ActiveSheet.Columns("G:G").ColumnWidth = 43
    ActiveSheet.Columns("H:H").ColumnWidth = 15
'end change sizes
'begin copy over MS77 form
    Worksheets(ActiveSheet.Index - 1).Select
    ActiveSheet.Range("B2:H23").Select
    Selection.Copy
    Worksheets(ActiveSheet.Index + 1).Select
    ActiveSheet.Range("B2").Select
    ActiveSheet.Paste
    ActiveSheet.Range("B9:D23").HorizontalAlignment = xlCenter
'end copy over MS77 form
'begin info at top of MS77
    Worksheets(ActiveSheet.Index - 1).Select
    ActiveSheet.Range("F5").Value = Sheets("Checklist").Range("B17") & Sheets("Checklist").Range("C17") & Sheets("Checklist").Range("D17") & " " & Sheets("Checklist").Range("AI17")
'change these: ------------------------------------------------^^^^-------------------------------^^^^------------------------------^^^^^-------------------------------------^^^^^
'end info at top of MS77
'begin filling in checkboxes
    ActiveSheet.Range("B9:D23").HorizontalAlignment = xlCenter
    ActiveSheet.Range("D9:D23").Value = "X"
        If Sheets("Checklist").Range("E17") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D9").Value = ""
        ActiveSheet.Range("B9").Value = "X"
        End If
        If Sheets("Checklist").Range("G17") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D10").Value = ""
        ActiveSheet.Range("B10").Value = "X"
        End If
        If Sheets("Checklist").Range("I17") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D11").Value = ""
        ActiveSheet.Range("B11").Value = "X"
        End If
        If Sheets("Checklist").Range("K17") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D12").Value = ""
        ActiveSheet.Range("B12").Value = "X"
        End If
        If Sheets("Checklist").Range("M17") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D13").Value = ""
        ActiveSheet.Range("B13").Value = "X"
        End If
        If Sheets("Checklist").Range("O17") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D14").Value = ""
        ActiveSheet.Range("B14").Value = "X"
        End If
        If Sheets("Checklist").Range("Q17") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D15").Value = ""
        ActiveSheet.Range("B15").Value = "X"
        End If
        If Sheets("Checklist").Range("S17") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D16").Value = ""
        ActiveSheet.Range("B16").Value = "X"
        End If
        If Sheets("Checklist").Range("U17") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D17").Value = ""
        ActiveSheet.Range("B17").Value = "X"
        End If
        If Sheets("Checklist").Range("W17") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D18").Value = ""
        ActiveSheet.Range("B18").Value = "X"
        End If
        If Sheets("Checklist").Range("Y17") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D19").Value = ""
        ActiveSheet.Range("B19").Value = "X"
        End If
        If Sheets("Checklist").Range("AA17") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D20").Value = ""
        ActiveSheet.Range("B20").Value = "X"
        End If
        If Sheets("Checklist").Range("AC17") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D21").Value = ""
        ActiveSheet.Range("B21").Value = "X"
        End If
        If Sheets("Checklist").Range("AE17") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D22").Value = ""
        ActiveSheet.Range("B22").Value = "X"
        End If
        If Sheets("Checklist").Range("AG17") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D23").Value = ""
        ActiveSheet.Range("B23").Value = "X"
        End If
'end filling in checkboxes
'begin filling in descriptions
    ActiveSheet.Range("G9").Value = Sheets("Checklist").Range("F17")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G10").Value = Sheets("Checklist").Range("H17")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G11").Value = Sheets("Checklist").Range("J17")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G12").Value = Sheets("Checklist").Range("L17")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G13").Value = Sheets("Checklist").Range("N17")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G14").Value = Sheets("Checklist").Range("P17")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G15").Value = Sheets("Checklist").Range("R17")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G16").Value = Sheets("Checklist").Range("T17")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G17").Value = Sheets("Checklist").Range("V17")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G18").Value = Sheets("Checklist").Range("X17")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G19").Value = Sheets("Checklist").Range("Z17")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G20").Value = Sheets("Checklist").Range("AB17")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G21").Value = Sheets("Checklist").Range("AD17")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G22").Value = Sheets("Checklist").Range("AF17")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G23").Value = Sheets("Checklist").Range("AH17")
'--------------------------------------------------------------^^^^
'end filling in descriptions
'PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS
'Parameter: If there is no discription and the scenario is applicable color description box red.
If ActiveSheet.Range("G9").Value = "" Then
    If ActiveSheet.Range("B9").Value = "X" Then
    ActiveSheet.Range("G9").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C9").Value = "X" Then
    ActiveSheet.Range("G9").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G10").Value = "" Then
    If ActiveSheet.Range("B10").Value = "X" Then
    ActiveSheet.Range("G10").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C10").Value = "X" Then
    ActiveSheet.Range("G10").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G11").Value = "" Then
    If ActiveSheet.Range("B11").Value = "X" Then
    ActiveSheet.Range("G11").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C11").Value = "X" Then
    ActiveSheet.Range("G11").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G12").Value = "" Then
    If ActiveSheet.Range("B12").Value = "X" Then
    ActiveSheet.Range("G12").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C12").Value = "X" Then
    ActiveSheet.Range("G12").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G13").Value = "" Then
    If ActiveSheet.Range("B13").Value = "X" Then
    ActiveSheet.Range("G13").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C13").Value = "X" Then
    ActiveSheet.Range("G13").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G14").Value = "" Then
    If ActiveSheet.Range("B14").Value = "X" Then
    ActiveSheet.Range("G14").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C14").Value = "X" Then
    ActiveSheet.Range("G14").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G15").Value = "" Then
    If ActiveSheet.Range("B15").Value = "X" Then
    ActiveSheet.Range("G15").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C15").Value = "X" Then
    ActiveSheet.Range("G15").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G16").Value = "" Then
    If ActiveSheet.Range("B16").Value = "X" Then
    ActiveSheet.Range("G16").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C16").Value = "X" Then
    ActiveSheet.Range("G16").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G17").Value = "" Then
    If ActiveSheet.Range("B17").Value = "X" Then
    ActiveSheet.Range("G17").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C17").Value = "X" Then
    ActiveSheet.Range("G17").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G18").Value = "" Then
    If ActiveSheet.Range("B18").Value = "X" Then
    ActiveSheet.Range("G18").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C18").Value = "X" Then
    ActiveSheet.Range("G18").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G19").Value = "" Then
    If ActiveSheet.Range("B19").Value = "X" Then
    ActiveSheet.Range("G19").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C19").Value = "X" Then
    ActiveSheet.Range("G19").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G20").Value = "" Then
    If ActiveSheet.Range("B20").Value = "X" Then
    ActiveSheet.Range("G20").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C20").Value = "X" Then
    ActiveSheet.Range("G20").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G21").Value = "" Then
    If ActiveSheet.Range("B21").Value = "X" Then
    ActiveSheet.Range("G21").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C21").Value = "X" Then
    ActiveSheet.Range("G21").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G22").Value = "" Then
    If ActiveSheet.Range("B22").Value = "X" Then
    ActiveSheet.Range("G22").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C22").Value = "X" Then
    ActiveSheet.Range("G22").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G23").Value = "" Then
    If ActiveSheet.Range("B23").Value = "X" Then
    ActiveSheet.Range("G23").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C23").Value = "X" Then
    ActiveSheet.Range("G23").Interior.ColorIndex = 3
    End If
End If
'Parameter: If there is a description on a scenario that is listed as not applicable, color N/A box red.
If Not ActiveSheet.Range("G9").Value = "" Then
    If ActiveSheet.Range("D9").Value = "X" Then
    ActiveSheet.Range("D9").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G10").Value = "" Then
    If ActiveSheet.Range("D10").Value = "X" Then
    ActiveSheet.Range("D10").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G11").Value = "" Then
    If ActiveSheet.Range("D11").Value = "X" Then
    ActiveSheet.Range("D11").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G12").Value = "" Then
    If ActiveSheet.Range("D12").Value = "X" Then
    ActiveSheet.Range("D12").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G13").Value = "" Then
    If ActiveSheet.Range("D13").Value = "X" Then
    ActiveSheet.Range("D13").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G14").Value = "" Then
    If ActiveSheet.Range("D14").Value = "X" Then
    ActiveSheet.Range("D14").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G15").Value = "" Then
    If ActiveSheet.Range("D15").Value = "X" Then
    ActiveSheet.Range("D15").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G16").Value = "" Then
    If ActiveSheet.Range("D16").Value = "X" Then
    ActiveSheet.Range("D16").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G17").Value = "" Then
    If ActiveSheet.Range("D17").Value = "X" Then
    ActiveSheet.Range("D17").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G18").Value = "" Then
    If ActiveSheet.Range("D18").Value = "X" Then
    ActiveSheet.Range("D18").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G19").Value = "" Then
    If ActiveSheet.Range("D19").Value = "X" Then
    ActiveSheet.Range("D19").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G20").Value = "" Then
    If ActiveSheet.Range("D20").Value = "X" Then
    ActiveSheet.Range("D20").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G21").Value = "" Then
    If ActiveSheet.Range("D21").Value = "X" Then
    ActiveSheet.Range("D21").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G22").Value = "" Then
    If ActiveSheet.Range("D22").Value = "X" Then
    ActiveSheet.Range("D22").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G23").Value = "" Then
    If ActiveSheet.Range("D23").Value = "X" Then
    ActiveSheet.Range("D23").Interior.ColorIndex = 3
    End If
End If
'end PARAMETERS section
End If
End Sub
Sub Device5()
    If Not ActiveSheet.Range("D18").Value = "" Then
'-----------------------------^^^^-(change to the current row)
'begin add new sheet
'From http://www.mrexcel.com/archive/VBA/1869.html
    Sheets("MS77").Select
    With ActiveSheet
    MS77 = .Name
    End With
     
    Sheets("MS77").Name = Sheets("Checklist").Range("B18") & Sheets("Checklist").Range("C18") & Sheets("Checklist").Range("D18")
'----------------------------------------------------^^^^-------------------------------^^^^-------------------------------^^^^
    If Err Then MsgBox "Invalid name!", vbCritical
    On Error GoTo 0
    Worksheets.Add after:=Worksheets(Worksheets.Count)
    Worksheets(Worksheets.Count).Name = "MS77"
    If Err Then MsgBox "Invalid name!", vbCritical
    On Error GoTo 0
'end add new sheet
'change new sheet column sizes
    ActiveSheet.Columns("A:D").ColumnWidth = 2
    ActiveSheet.Columns("E:E").ColumnWidth = 15
    ActiveSheet.Columns("F:F").ColumnWidth = 34.86
    ActiveSheet.Columns("G:G").ColumnWidth = 43
    ActiveSheet.Columns("H:H").ColumnWidth = 15
'end change sizes
'begin copy over MS77 form
    Worksheets(ActiveSheet.Index - 1).Select
    ActiveSheet.Range("B2:H23").Select
    Selection.Copy
    Worksheets(ActiveSheet.Index + 1).Select
    ActiveSheet.Range("B2").Select
    ActiveSheet.Paste
    ActiveSheet.Range("B9:D23").HorizontalAlignment = xlCenter
'end copy over MS77 form
'begin info at top of MS77
    Worksheets(ActiveSheet.Index - 1).Select
    ActiveSheet.Range("F5").Value = Sheets("Checklist").Range("B18") & Sheets("Checklist").Range("C18") & Sheets("Checklist").Range("D18") & " " & Sheets("Checklist").Range("AI18")
'change these: ------------------------------------------------^^^^-------------------------------^^^^------------------------------^^^^^-------------------------------------^^^^^
'end info at top of MS77
'begin filling in checkboxes
    ActiveSheet.Range("B9:D23").HorizontalAlignment = xlCenter
    ActiveSheet.Range("D9:D23").Value = "X"
        If Sheets("Checklist").Range("E18") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D9").Value = ""
        ActiveSheet.Range("B9").Value = "X"
        End If
        If Sheets("Checklist").Range("G18") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D10").Value = ""
        ActiveSheet.Range("B10").Value = "X"
        End If
        If Sheets("Checklist").Range("I18") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D11").Value = ""
        ActiveSheet.Range("B11").Value = "X"
        End If
        If Sheets("Checklist").Range("K18") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D12").Value = ""
        ActiveSheet.Range("B12").Value = "X"
        End If
        If Sheets("Checklist").Range("M18") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D13").Value = ""
        ActiveSheet.Range("B13").Value = "X"
        End If
        If Sheets("Checklist").Range("O18") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D14").Value = ""
        ActiveSheet.Range("B14").Value = "X"
        End If
        If Sheets("Checklist").Range("Q18") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D15").Value = ""
        ActiveSheet.Range("B15").Value = "X"
        End If
        If Sheets("Checklist").Range("S18") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D16").Value = ""
        ActiveSheet.Range("B16").Value = "X"
        End If
        If Sheets("Checklist").Range("U18") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D17").Value = ""
        ActiveSheet.Range("B17").Value = "X"
        End If
        If Sheets("Checklist").Range("W18") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D18").Value = ""
        ActiveSheet.Range("B18").Value = "X"
        End If
        If Sheets("Checklist").Range("Y18") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D19").Value = ""
        ActiveSheet.Range("B19").Value = "X"
        End If
        If Sheets("Checklist").Range("AA18") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D20").Value = ""
        ActiveSheet.Range("B20").Value = "X"
        End If
        If Sheets("Checklist").Range("AC18") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D21").Value = ""
        ActiveSheet.Range("B21").Value = "X"
        End If
        If Sheets("Checklist").Range("AE18") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D22").Value = ""
        ActiveSheet.Range("B22").Value = "X"
        End If
        If Sheets("Checklist").Range("AG18") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D23").Value = ""
        ActiveSheet.Range("B23").Value = "X"
        End If
'end filling in checkboxes
'begin filling in descriptions
    ActiveSheet.Range("G9").Value = Sheets("Checklist").Range("F18")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G10").Value = Sheets("Checklist").Range("H18")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G11").Value = Sheets("Checklist").Range("J18")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G12").Value = Sheets("Checklist").Range("L18")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G13").Value = Sheets("Checklist").Range("N18")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G14").Value = Sheets("Checklist").Range("P18")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G15").Value = Sheets("Checklist").Range("R18")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G16").Value = Sheets("Checklist").Range("T18")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G17").Value = Sheets("Checklist").Range("V18")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G18").Value = Sheets("Checklist").Range("X18")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G19").Value = Sheets("Checklist").Range("Z18")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G20").Value = Sheets("Checklist").Range("AB18")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G21").Value = Sheets("Checklist").Range("AD18")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G22").Value = Sheets("Checklist").Range("AF18")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G23").Value = Sheets("Checklist").Range("AH18")
'--------------------------------------------------------------^^^^
'end filling in descriptions
'PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS
'Parameter: If there is no discription and the scenario is applicable color description box red.
If ActiveSheet.Range("G9").Value = "" Then
    If ActiveSheet.Range("B9").Value = "X" Then
    ActiveSheet.Range("G9").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C9").Value = "X" Then
    ActiveSheet.Range("G9").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G10").Value = "" Then
    If ActiveSheet.Range("B10").Value = "X" Then
    ActiveSheet.Range("G10").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C10").Value = "X" Then
    ActiveSheet.Range("G10").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G11").Value = "" Then
    If ActiveSheet.Range("B11").Value = "X" Then
    ActiveSheet.Range("G11").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C11").Value = "X" Then
    ActiveSheet.Range("G11").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G12").Value = "" Then
    If ActiveSheet.Range("B12").Value = "X" Then
    ActiveSheet.Range("G12").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C12").Value = "X" Then
    ActiveSheet.Range("G12").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G13").Value = "" Then
    If ActiveSheet.Range("B13").Value = "X" Then
    ActiveSheet.Range("G13").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C13").Value = "X" Then
    ActiveSheet.Range("G13").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G14").Value = "" Then
    If ActiveSheet.Range("B14").Value = "X" Then
    ActiveSheet.Range("G14").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C14").Value = "X" Then
    ActiveSheet.Range("G14").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G15").Value = "" Then
    If ActiveSheet.Range("B15").Value = "X" Then
    ActiveSheet.Range("G15").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C15").Value = "X" Then
    ActiveSheet.Range("G15").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G16").Value = "" Then
    If ActiveSheet.Range("B16").Value = "X" Then
    ActiveSheet.Range("G16").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C16").Value = "X" Then
    ActiveSheet.Range("G16").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G17").Value = "" Then
    If ActiveSheet.Range("B17").Value = "X" Then
    ActiveSheet.Range("G17").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C17").Value = "X" Then
    ActiveSheet.Range("G17").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G18").Value = "" Then
    If ActiveSheet.Range("B18").Value = "X" Then
    ActiveSheet.Range("G18").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C18").Value = "X" Then
    ActiveSheet.Range("G18").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G19").Value = "" Then
    If ActiveSheet.Range("B19").Value = "X" Then
    ActiveSheet.Range("G19").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C19").Value = "X" Then
    ActiveSheet.Range("G19").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G20").Value = "" Then
    If ActiveSheet.Range("B20").Value = "X" Then
    ActiveSheet.Range("G20").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C20").Value = "X" Then
    ActiveSheet.Range("G20").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G21").Value = "" Then
    If ActiveSheet.Range("B21").Value = "X" Then
    ActiveSheet.Range("G21").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C21").Value = "X" Then
    ActiveSheet.Range("G21").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G22").Value = "" Then
    If ActiveSheet.Range("B22").Value = "X" Then
    ActiveSheet.Range("G22").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C22").Value = "X" Then
    ActiveSheet.Range("G22").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G23").Value = "" Then
    If ActiveSheet.Range("B23").Value = "X" Then
    ActiveSheet.Range("G23").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C23").Value = "X" Then
    ActiveSheet.Range("G23").Interior.ColorIndex = 3
    End If
End If
'Parameter: If there is a description on a scenario that is listed as not applicable, color N/A box red.
If Not ActiveSheet.Range("G9").Value = "" Then
    If ActiveSheet.Range("D9").Value = "X" Then
    ActiveSheet.Range("D9").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G10").Value = "" Then
    If ActiveSheet.Range("D10").Value = "X" Then
    ActiveSheet.Range("D10").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G11").Value = "" Then
    If ActiveSheet.Range("D11").Value = "X" Then
    ActiveSheet.Range("D11").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G12").Value = "" Then
    If ActiveSheet.Range("D12").Value = "X" Then
    ActiveSheet.Range("D12").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G13").Value = "" Then
    If ActiveSheet.Range("D13").Value = "X" Then
    ActiveSheet.Range("D13").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G14").Value = "" Then
    If ActiveSheet.Range("D14").Value = "X" Then
    ActiveSheet.Range("D14").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G15").Value = "" Then
    If ActiveSheet.Range("D15").Value = "X" Then
    ActiveSheet.Range("D15").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G16").Value = "" Then
    If ActiveSheet.Range("D16").Value = "X" Then
    ActiveSheet.Range("D16").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G17").Value = "" Then
    If ActiveSheet.Range("D17").Value = "X" Then
    ActiveSheet.Range("D17").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G18").Value = "" Then
    If ActiveSheet.Range("D18").Value = "X" Then
    ActiveSheet.Range("D18").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G19").Value = "" Then
    If ActiveSheet.Range("D19").Value = "X" Then
    ActiveSheet.Range("D19").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G20").Value = "" Then
    If ActiveSheet.Range("D20").Value = "X" Then
    ActiveSheet.Range("D20").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G21").Value = "" Then
    If ActiveSheet.Range("D21").Value = "X" Then
    ActiveSheet.Range("D21").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G22").Value = "" Then
    If ActiveSheet.Range("D22").Value = "X" Then
    ActiveSheet.Range("D22").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G23").Value = "" Then
    If ActiveSheet.Range("D23").Value = "X" Then
    ActiveSheet.Range("D23").Interior.ColorIndex = 3
    End If
End If
'end PARAMETERS section
End If
End Sub
Sub Device6()
    If Not ActiveSheet.Range("D19").Value = "" Then
'-----------------------------^^^^-(change to the current row)
'begin add new sheet
'From http://www.mrexcel.com/archive/VBA/1869.html
    Sheets("MS77").Select
    With ActiveSheet
    MS77 = .Name
    End With
     
    Sheets("MS77").Name = Sheets("Checklist").Range("B19") & Sheets("Checklist").Range("C19") & Sheets("Checklist").Range("D19")
'----------------------------------------------------^^^^-------------------------------^^^^-------------------------------^^^^
    If Err Then MsgBox "Invalid name!", vbCritical
    On Error GoTo 0
    Worksheets.Add after:=Worksheets(Worksheets.Count)
    Worksheets(Worksheets.Count).Name = "MS77"
    If Err Then MsgBox "Invalid name!", vbCritical
    On Error GoTo 0
'end add new sheet
'change new sheet column sizes
    ActiveSheet.Columns("A:D").ColumnWidth = 2
    ActiveSheet.Columns("E:E").ColumnWidth = 15
    ActiveSheet.Columns("F:F").ColumnWidth = 34.86
    ActiveSheet.Columns("G:G").ColumnWidth = 43
    ActiveSheet.Columns("H:H").ColumnWidth = 15
'end change sizes
'begin copy over MS77 form
    Worksheets(ActiveSheet.Index - 1).Select
    ActiveSheet.Range("B2:H23").Select
    Selection.Copy
    Worksheets(ActiveSheet.Index + 1).Select
    ActiveSheet.Range("B2").Select
    ActiveSheet.Paste
    ActiveSheet.Range("B9:D23").HorizontalAlignment = xlCenter
'end copy over MS77 form
'begin info at top of MS77
    Worksheets(ActiveSheet.Index - 1).Select
    ActiveSheet.Range("F5").Value = Sheets("Checklist").Range("B19") & Sheets("Checklist").Range("C19") & Sheets("Checklist").Range("D19") & " " & Sheets("Checklist").Range("AI19")
'change these: ------------------------------------------------^^^^-------------------------------^^^^------------------------------^^^^^-------------------------------------^^^^^
'end info at top of MS77
'begin filling in checkboxes
    ActiveSheet.Range("B9:D23").HorizontalAlignment = xlCenter
    ActiveSheet.Range("D9:D23").Value = "X"
        If Sheets("Checklist").Range("E19") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D9").Value = ""
        ActiveSheet.Range("B9").Value = "X"
        End If
        If Sheets("Checklist").Range("G19") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D10").Value = ""
        ActiveSheet.Range("B10").Value = "X"
        End If
        If Sheets("Checklist").Range("I19") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D11").Value = ""
        ActiveSheet.Range("B11").Value = "X"
        End If
        If Sheets("Checklist").Range("K19") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D12").Value = ""
        ActiveSheet.Range("B12").Value = "X"
        End If
        If Sheets("Checklist").Range("M19") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D13").Value = ""
        ActiveSheet.Range("B13").Value = "X"
        End If
        If Sheets("Checklist").Range("O19") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D14").Value = ""
        ActiveSheet.Range("B14").Value = "X"
        End If
        If Sheets("Checklist").Range("Q19") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D15").Value = ""
        ActiveSheet.Range("B15").Value = "X"
        End If
        If Sheets("Checklist").Range("S19") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D16").Value = ""
        ActiveSheet.Range("B16").Value = "X"
        End If
        If Sheets("Checklist").Range("U19") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D17").Value = ""
        ActiveSheet.Range("B17").Value = "X"
        End If
        If Sheets("Checklist").Range("W19") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D18").Value = ""
        ActiveSheet.Range("B18").Value = "X"
        End If
        If Sheets("Checklist").Range("Y19") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D19").Value = ""
        ActiveSheet.Range("B19").Value = "X"
        End If
        If Sheets("Checklist").Range("AA19") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D20").Value = ""
        ActiveSheet.Range("B20").Value = "X"
        End If
        If Sheets("Checklist").Range("AC19") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D21").Value = ""
        ActiveSheet.Range("B21").Value = "X"
        End If
        If Sheets("Checklist").Range("AE19") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D22").Value = ""
        ActiveSheet.Range("B22").Value = "X"
        End If
        If Sheets("Checklist").Range("AG19") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D23").Value = ""
        ActiveSheet.Range("B23").Value = "X"
        End If
'end filling in checkboxes
'begin filling in descriptions
    ActiveSheet.Range("G9").Value = Sheets("Checklist").Range("F19")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G10").Value = Sheets("Checklist").Range("H19")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G11").Value = Sheets("Checklist").Range("J19")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G12").Value = Sheets("Checklist").Range("L19")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G13").Value = Sheets("Checklist").Range("N19")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G14").Value = Sheets("Checklist").Range("P19")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G15").Value = Sheets("Checklist").Range("R19")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G16").Value = Sheets("Checklist").Range("T19")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G17").Value = Sheets("Checklist").Range("V19")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G18").Value = Sheets("Checklist").Range("X19")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G19").Value = Sheets("Checklist").Range("Z19")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G20").Value = Sheets("Checklist").Range("AB19")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G21").Value = Sheets("Checklist").Range("AD19")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G22").Value = Sheets("Checklist").Range("AF19")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G23").Value = Sheets("Checklist").Range("AH19")
'--------------------------------------------------------------^^^^
'end filling in descriptions
'PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS
'Parameter: If there is no discription and the scenario is applicable color description box red.
If ActiveSheet.Range("G9").Value = "" Then
    If ActiveSheet.Range("B9").Value = "X" Then
    ActiveSheet.Range("G9").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C9").Value = "X" Then
    ActiveSheet.Range("G9").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G10").Value = "" Then
    If ActiveSheet.Range("B10").Value = "X" Then
    ActiveSheet.Range("G10").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C10").Value = "X" Then
    ActiveSheet.Range("G10").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G11").Value = "" Then
    If ActiveSheet.Range("B11").Value = "X" Then
    ActiveSheet.Range("G11").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C11").Value = "X" Then
    ActiveSheet.Range("G11").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G12").Value = "" Then
    If ActiveSheet.Range("B12").Value = "X" Then
    ActiveSheet.Range("G12").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C12").Value = "X" Then
    ActiveSheet.Range("G12").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G13").Value = "" Then
    If ActiveSheet.Range("B13").Value = "X" Then
    ActiveSheet.Range("G13").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C13").Value = "X" Then
    ActiveSheet.Range("G13").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G14").Value = "" Then
    If ActiveSheet.Range("B14").Value = "X" Then
    ActiveSheet.Range("G14").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C14").Value = "X" Then
    ActiveSheet.Range("G14").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G15").Value = "" Then
    If ActiveSheet.Range("B15").Value = "X" Then
    ActiveSheet.Range("G15").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C15").Value = "X" Then
    ActiveSheet.Range("G15").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G16").Value = "" Then
    If ActiveSheet.Range("B16").Value = "X" Then
    ActiveSheet.Range("G16").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C16").Value = "X" Then
    ActiveSheet.Range("G16").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G17").Value = "" Then
    If ActiveSheet.Range("B17").Value = "X" Then
    ActiveSheet.Range("G17").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C17").Value = "X" Then
    ActiveSheet.Range("G17").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G18").Value = "" Then
    If ActiveSheet.Range("B18").Value = "X" Then
    ActiveSheet.Range("G18").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C18").Value = "X" Then
    ActiveSheet.Range("G18").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G19").Value = "" Then
    If ActiveSheet.Range("B19").Value = "X" Then
    ActiveSheet.Range("G19").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C19").Value = "X" Then
    ActiveSheet.Range("G19").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G20").Value = "" Then
    If ActiveSheet.Range("B20").Value = "X" Then
    ActiveSheet.Range("G20").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C20").Value = "X" Then
    ActiveSheet.Range("G20").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G21").Value = "" Then
    If ActiveSheet.Range("B21").Value = "X" Then
    ActiveSheet.Range("G21").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C21").Value = "X" Then
    ActiveSheet.Range("G21").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G22").Value = "" Then
    If ActiveSheet.Range("B22").Value = "X" Then
    ActiveSheet.Range("G22").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C22").Value = "X" Then
    ActiveSheet.Range("G22").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G23").Value = "" Then
    If ActiveSheet.Range("B23").Value = "X" Then
    ActiveSheet.Range("G23").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C23").Value = "X" Then
    ActiveSheet.Range("G23").Interior.ColorIndex = 3
    End If
End If
'Parameter: If there is a description on a scenario that is listed as not applicable, color N/A box red.
If Not ActiveSheet.Range("G9").Value = "" Then
    If ActiveSheet.Range("D9").Value = "X" Then
    ActiveSheet.Range("D9").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G10").Value = "" Then
    If ActiveSheet.Range("D10").Value = "X" Then
    ActiveSheet.Range("D10").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G11").Value = "" Then
    If ActiveSheet.Range("D11").Value = "X" Then
    ActiveSheet.Range("D11").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G12").Value = "" Then
    If ActiveSheet.Range("D12").Value = "X" Then
    ActiveSheet.Range("D12").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G13").Value = "" Then
    If ActiveSheet.Range("D13").Value = "X" Then
    ActiveSheet.Range("D13").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G14").Value = "" Then
    If ActiveSheet.Range("D14").Value = "X" Then
    ActiveSheet.Range("D14").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G15").Value = "" Then
    If ActiveSheet.Range("D15").Value = "X" Then
    ActiveSheet.Range("D15").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G16").Value = "" Then
    If ActiveSheet.Range("D16").Value = "X" Then
    ActiveSheet.Range("D16").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G17").Value = "" Then
    If ActiveSheet.Range("D17").Value = "X" Then
    ActiveSheet.Range("D17").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G18").Value = "" Then
    If ActiveSheet.Range("D18").Value = "X" Then
    ActiveSheet.Range("D18").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G19").Value = "" Then
    If ActiveSheet.Range("D19").Value = "X" Then
    ActiveSheet.Range("D19").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G20").Value = "" Then
    If ActiveSheet.Range("D20").Value = "X" Then
    ActiveSheet.Range("D20").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G21").Value = "" Then
    If ActiveSheet.Range("D21").Value = "X" Then
    ActiveSheet.Range("D21").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G22").Value = "" Then
    If ActiveSheet.Range("D22").Value = "X" Then
    ActiveSheet.Range("D22").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G23").Value = "" Then
    If ActiveSheet.Range("D23").Value = "X" Then
    ActiveSheet.Range("D23").Interior.ColorIndex = 3
    End If
End If
'end PARAMETERS section
End If
End Sub
Sub Device7()
    If Not ActiveSheet.Range("D20").Value = "" Then
'-----------------------------^^^^-(change to the current row)
'begin add new sheet
'From http://www.mrexcel.com/archive/VBA/1869.html
    Sheets("MS77").Select
    With ActiveSheet
    MS77 = .Name
    End With
     
    Sheets("MS77").Name = Sheets("Checklist").Range("B20") & Sheets("Checklist").Range("C20") & Sheets("Checklist").Range("D20")
'----------------------------------------------------^^^^-------------------------------^^^^-------------------------------^^^^
    If Err Then MsgBox "Invalid name!", vbCritical
    On Error GoTo 0
    Worksheets.Add after:=Worksheets(Worksheets.Count)
    Worksheets(Worksheets.Count).Name = "MS77"
    If Err Then MsgBox "Invalid name!", vbCritical
    On Error GoTo 0
'end add new sheet
'change new sheet column sizes
    ActiveSheet.Columns("A:D").ColumnWidth = 2
    ActiveSheet.Columns("E:E").ColumnWidth = 15
    ActiveSheet.Columns("F:F").ColumnWidth = 34.86
    ActiveSheet.Columns("G:G").ColumnWidth = 43
    ActiveSheet.Columns("H:H").ColumnWidth = 15
'end change sizes
'begin copy over MS77 form
    Worksheets(ActiveSheet.Index - 1).Select
    ActiveSheet.Range("B2:H23").Select
    Selection.Copy
    Worksheets(ActiveSheet.Index + 1).Select
    ActiveSheet.Range("B2").Select
    ActiveSheet.Paste
    ActiveSheet.Range("B9:D23").HorizontalAlignment = xlCenter
'end copy over MS77 form
'begin info at top of MS77
    Worksheets(ActiveSheet.Index - 1).Select
    ActiveSheet.Range("F5").Value = Sheets("Checklist").Range("B20") & Sheets("Checklist").Range("C20") & Sheets("Checklist").Range("D20") & " " & Sheets("Checklist").Range("AI20")
'change these: ------------------------------------------------^^^^-------------------------------^^^^------------------------------^^^^^-------------------------------------^^^^^
'end info at top of MS77
'begin filling in checkboxes
    ActiveSheet.Range("B9:D23").HorizontalAlignment = xlCenter
    ActiveSheet.Range("D9:D23").Value = "X"
        If Sheets("Checklist").Range("E20") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D9").Value = ""
        ActiveSheet.Range("B9").Value = "X"
        End If
        If Sheets("Checklist").Range("G20") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D10").Value = ""
        ActiveSheet.Range("B10").Value = "X"
        End If
        If Sheets("Checklist").Range("I20") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D11").Value = ""
        ActiveSheet.Range("B11").Value = "X"
        End If
        If Sheets("Checklist").Range("K20") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D12").Value = ""
        ActiveSheet.Range("B12").Value = "X"
        End If
        If Sheets("Checklist").Range("M20") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D13").Value = ""
        ActiveSheet.Range("B13").Value = "X"
        End If
        If Sheets("Checklist").Range("O20") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D14").Value = ""
        ActiveSheet.Range("B14").Value = "X"
        End If
        If Sheets("Checklist").Range("Q20") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D15").Value = ""
        ActiveSheet.Range("B15").Value = "X"
        End If
        If Sheets("Checklist").Range("S20") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D16").Value = ""
        ActiveSheet.Range("B16").Value = "X"
        End If
        If Sheets("Checklist").Range("U20") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D17").Value = ""
        ActiveSheet.Range("B17").Value = "X"
        End If
        If Sheets("Checklist").Range("W20") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D18").Value = ""
        ActiveSheet.Range("B18").Value = "X"
        End If
        If Sheets("Checklist").Range("Y20") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D19").Value = ""
        ActiveSheet.Range("B19").Value = "X"
        End If
        If Sheets("Checklist").Range("AA20") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D20").Value = ""
        ActiveSheet.Range("B20").Value = "X"
        End If
        If Sheets("Checklist").Range("AC20") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D21").Value = ""
        ActiveSheet.Range("B21").Value = "X"
        End If
        If Sheets("Checklist").Range("AE20") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D22").Value = ""
        ActiveSheet.Range("B22").Value = "X"
        End If
        If Sheets("Checklist").Range("AG20") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D23").Value = ""
        ActiveSheet.Range("B23").Value = "X"
        End If
'end filling in checkboxes
'begin filling in descriptions
    ActiveSheet.Range("G9").Value = Sheets("Checklist").Range("F20")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G10").Value = Sheets("Checklist").Range("H20")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G11").Value = Sheets("Checklist").Range("J20")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G12").Value = Sheets("Checklist").Range("L20")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G13").Value = Sheets("Checklist").Range("N20")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G14").Value = Sheets("Checklist").Range("P20")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G15").Value = Sheets("Checklist").Range("R20")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G16").Value = Sheets("Checklist").Range("T20")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G17").Value = Sheets("Checklist").Range("V20")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G18").Value = Sheets("Checklist").Range("X20")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G19").Value = Sheets("Checklist").Range("Z20")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G20").Value = Sheets("Checklist").Range("AB20")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G21").Value = Sheets("Checklist").Range("AD20")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G22").Value = Sheets("Checklist").Range("AF20")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G23").Value = Sheets("Checklist").Range("AH20")
'--------------------------------------------------------------^^^^
'end filling in descriptions
'PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS
'Parameter: If there is no discription and the scenario is applicable color description box red.
If ActiveSheet.Range("G9").Value = "" Then
    If ActiveSheet.Range("B9").Value = "X" Then
    ActiveSheet.Range("G9").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C9").Value = "X" Then
    ActiveSheet.Range("G9").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G10").Value = "" Then
    If ActiveSheet.Range("B10").Value = "X" Then
    ActiveSheet.Range("G10").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C10").Value = "X" Then
    ActiveSheet.Range("G10").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G11").Value = "" Then
    If ActiveSheet.Range("B11").Value = "X" Then
    ActiveSheet.Range("G11").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C11").Value = "X" Then
    ActiveSheet.Range("G11").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G12").Value = "" Then
    If ActiveSheet.Range("B12").Value = "X" Then
    ActiveSheet.Range("G12").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C12").Value = "X" Then
    ActiveSheet.Range("G12").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G13").Value = "" Then
    If ActiveSheet.Range("B13").Value = "X" Then
    ActiveSheet.Range("G13").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C13").Value = "X" Then
    ActiveSheet.Range("G13").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G14").Value = "" Then
    If ActiveSheet.Range("B14").Value = "X" Then
    ActiveSheet.Range("G14").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C14").Value = "X" Then
    ActiveSheet.Range("G14").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G15").Value = "" Then
    If ActiveSheet.Range("B15").Value = "X" Then
    ActiveSheet.Range("G15").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C15").Value = "X" Then
    ActiveSheet.Range("G15").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G16").Value = "" Then
    If ActiveSheet.Range("B16").Value = "X" Then
    ActiveSheet.Range("G16").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C16").Value = "X" Then
    ActiveSheet.Range("G16").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G17").Value = "" Then
    If ActiveSheet.Range("B17").Value = "X" Then
    ActiveSheet.Range("G17").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C17").Value = "X" Then
    ActiveSheet.Range("G17").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G18").Value = "" Then
    If ActiveSheet.Range("B18").Value = "X" Then
    ActiveSheet.Range("G18").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C18").Value = "X" Then
    ActiveSheet.Range("G18").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G19").Value = "" Then
    If ActiveSheet.Range("B19").Value = "X" Then
    ActiveSheet.Range("G19").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C19").Value = "X" Then
    ActiveSheet.Range("G19").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G20").Value = "" Then
    If ActiveSheet.Range("B20").Value = "X" Then
    ActiveSheet.Range("G20").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C20").Value = "X" Then
    ActiveSheet.Range("G20").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G21").Value = "" Then
    If ActiveSheet.Range("B21").Value = "X" Then
    ActiveSheet.Range("G21").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C21").Value = "X" Then
    ActiveSheet.Range("G21").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G22").Value = "" Then
    If ActiveSheet.Range("B22").Value = "X" Then
    ActiveSheet.Range("G22").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C22").Value = "X" Then
    ActiveSheet.Range("G22").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G23").Value = "" Then
    If ActiveSheet.Range("B23").Value = "X" Then
    ActiveSheet.Range("G23").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C23").Value = "X" Then
    ActiveSheet.Range("G23").Interior.ColorIndex = 3
    End If
End If
'Parameter: If there is a description on a scenario that is listed as not applicable, color N/A box red.
If Not ActiveSheet.Range("G9").Value = "" Then
    If ActiveSheet.Range("D9").Value = "X" Then
    ActiveSheet.Range("D9").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G10").Value = "" Then
    If ActiveSheet.Range("D10").Value = "X" Then
    ActiveSheet.Range("D10").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G11").Value = "" Then
    If ActiveSheet.Range("D11").Value = "X" Then
    ActiveSheet.Range("D11").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G12").Value = "" Then
    If ActiveSheet.Range("D12").Value = "X" Then
    ActiveSheet.Range("D12").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G13").Value = "" Then
    If ActiveSheet.Range("D13").Value = "X" Then
    ActiveSheet.Range("D13").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G14").Value = "" Then
    If ActiveSheet.Range("D14").Value = "X" Then
    ActiveSheet.Range("D14").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G15").Value = "" Then
    If ActiveSheet.Range("D15").Value = "X" Then
    ActiveSheet.Range("D15").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G16").Value = "" Then
    If ActiveSheet.Range("D16").Value = "X" Then
    ActiveSheet.Range("D16").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G17").Value = "" Then
    If ActiveSheet.Range("D17").Value = "X" Then
    ActiveSheet.Range("D17").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G18").Value = "" Then
    If ActiveSheet.Range("D18").Value = "X" Then
    ActiveSheet.Range("D18").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G19").Value = "" Then
    If ActiveSheet.Range("D19").Value = "X" Then
    ActiveSheet.Range("D19").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G20").Value = "" Then
    If ActiveSheet.Range("D20").Value = "X" Then
    ActiveSheet.Range("D20").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G21").Value = "" Then
    If ActiveSheet.Range("D21").Value = "X" Then
    ActiveSheet.Range("D21").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G22").Value = "" Then
    If ActiveSheet.Range("D22").Value = "X" Then
    ActiveSheet.Range("D22").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G23").Value = "" Then
    If ActiveSheet.Range("D23").Value = "X" Then
    ActiveSheet.Range("D23").Interior.ColorIndex = 3
    End If
End If
'end PARAMETERS section
End If
End Sub
Sub Device8()
    If Not ActiveSheet.Range("D21").Value = "" Then
'-----------------------------^^^^-(change to the current row)
'begin add new sheet
'From http://www.mrexcel.com/archive/VBA/1869.html
    Sheets("MS77").Select
    With ActiveSheet
    MS77 = .Name
    End With
     
    Sheets("MS77").Name = Sheets("Checklist").Range("B21") & Sheets("Checklist").Range("C21") & Sheets("Checklist").Range("D21")
'----------------------------------------------------^^^^-------------------------------^^^^-------------------------------^^^^
    If Err Then MsgBox "Invalid name!", vbCritical
    On Error GoTo 0
    Worksheets.Add after:=Worksheets(Worksheets.Count)
    Worksheets(Worksheets.Count).Name = "MS77"
    If Err Then MsgBox "Invalid name!", vbCritical
    On Error GoTo 0
'end add new sheet
'change new sheet column sizes
    ActiveSheet.Columns("A:D").ColumnWidth = 2
    ActiveSheet.Columns("E:E").ColumnWidth = 15
    ActiveSheet.Columns("F:F").ColumnWidth = 34.86
    ActiveSheet.Columns("G:G").ColumnWidth = 43
    ActiveSheet.Columns("H:H").ColumnWidth = 15
'end change sizes
'begin copy over MS77 form
    Worksheets(ActiveSheet.Index - 1).Select
    ActiveSheet.Range("B2:H23").Select
    Selection.Copy
    Worksheets(ActiveSheet.Index + 1).Select
    ActiveSheet.Range("B2").Select
    ActiveSheet.Paste
    ActiveSheet.Range("B9:D23").HorizontalAlignment = xlCenter
'end copy over MS77 form
'begin info at top of MS77
    Worksheets(ActiveSheet.Index - 1).Select
    ActiveSheet.Range("F5").Value = Sheets("Checklist").Range("B21") & Sheets("Checklist").Range("C21") & Sheets("Checklist").Range("D21") & " " & Sheets("Checklist").Range("AI21")
'change these: ------------------------------------------------^^^^-------------------------------^^^^------------------------------^^^^^-------------------------------------^^^^^
'end info at top of MS77
'begin filling in checkboxes
    ActiveSheet.Range("B9:D23").HorizontalAlignment = xlCenter
    ActiveSheet.Range("D9:D23").Value = "X"
        If Sheets("Checklist").Range("E21") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D9").Value = ""
        ActiveSheet.Range("B9").Value = "X"
        End If
        If Sheets("Checklist").Range("G21") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D10").Value = ""
        ActiveSheet.Range("B10").Value = "X"
        End If
        If Sheets("Checklist").Range("I21") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D11").Value = ""
        ActiveSheet.Range("B11").Value = "X"
        End If
        If Sheets("Checklist").Range("K21") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D12").Value = ""
        ActiveSheet.Range("B12").Value = "X"
        End If
        If Sheets("Checklist").Range("M21") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D13").Value = ""
        ActiveSheet.Range("B13").Value = "X"
        End If
        If Sheets("Checklist").Range("O21") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D14").Value = ""
        ActiveSheet.Range("B14").Value = "X"
        End If
        If Sheets("Checklist").Range("Q21") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D15").Value = ""
        ActiveSheet.Range("B15").Value = "X"
        End If
        If Sheets("Checklist").Range("S21") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D16").Value = ""
        ActiveSheet.Range("B16").Value = "X"
        End If
        If Sheets("Checklist").Range("U21") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D17").Value = ""
        ActiveSheet.Range("B17").Value = "X"
        End If
        If Sheets("Checklist").Range("W21") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D18").Value = ""
        ActiveSheet.Range("B18").Value = "X"
        End If
        If Sheets("Checklist").Range("Y21") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D19").Value = ""
        ActiveSheet.Range("B19").Value = "X"
        End If
        If Sheets("Checklist").Range("AA21") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D20").Value = ""
        ActiveSheet.Range("B20").Value = "X"
        End If
        If Sheets("Checklist").Range("AC21") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D21").Value = ""
        ActiveSheet.Range("B21").Value = "X"
        End If
        If Sheets("Checklist").Range("AE21") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D22").Value = ""
        ActiveSheet.Range("B22").Value = "X"
        End If
        If Sheets("Checklist").Range("AG21") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D23").Value = ""
        ActiveSheet.Range("B23").Value = "X"
        End If
'end filling in checkboxes
'begin filling in descriptions
    ActiveSheet.Range("G9").Value = Sheets("Checklist").Range("F21")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G10").Value = Sheets("Checklist").Range("H21")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G11").Value = Sheets("Checklist").Range("J21")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G12").Value = Sheets("Checklist").Range("L21")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G13").Value = Sheets("Checklist").Range("N21")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G14").Value = Sheets("Checklist").Range("P21")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G15").Value = Sheets("Checklist").Range("R21")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G16").Value = Sheets("Checklist").Range("T21")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G17").Value = Sheets("Checklist").Range("V21")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G18").Value = Sheets("Checklist").Range("X21")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G19").Value = Sheets("Checklist").Range("Z21")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G20").Value = Sheets("Checklist").Range("AB21")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G21").Value = Sheets("Checklist").Range("AD21")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G22").Value = Sheets("Checklist").Range("AF21")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G23").Value = Sheets("Checklist").Range("AH21")
'--------------------------------------------------------------^^^^
'end filling in descriptions
'PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS
'Parameter: If there is no discription and the scenario is applicable color description box red.
If ActiveSheet.Range("G9").Value = "" Then
    If ActiveSheet.Range("B9").Value = "X" Then
    ActiveSheet.Range("G9").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C9").Value = "X" Then
    ActiveSheet.Range("G9").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G10").Value = "" Then
    If ActiveSheet.Range("B10").Value = "X" Then
    ActiveSheet.Range("G10").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C10").Value = "X" Then
    ActiveSheet.Range("G10").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G11").Value = "" Then
    If ActiveSheet.Range("B11").Value = "X" Then
    ActiveSheet.Range("G11").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C11").Value = "X" Then
    ActiveSheet.Range("G11").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G12").Value = "" Then
    If ActiveSheet.Range("B12").Value = "X" Then
    ActiveSheet.Range("G12").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C12").Value = "X" Then
    ActiveSheet.Range("G12").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G13").Value = "" Then
    If ActiveSheet.Range("B13").Value = "X" Then
    ActiveSheet.Range("G13").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C13").Value = "X" Then
    ActiveSheet.Range("G13").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G14").Value = "" Then
    If ActiveSheet.Range("B14").Value = "X" Then
    ActiveSheet.Range("G14").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C14").Value = "X" Then
    ActiveSheet.Range("G14").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G15").Value = "" Then
    If ActiveSheet.Range("B15").Value = "X" Then
    ActiveSheet.Range("G15").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C15").Value = "X" Then
    ActiveSheet.Range("G15").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G16").Value = "" Then
    If ActiveSheet.Range("B16").Value = "X" Then
    ActiveSheet.Range("G16").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C16").Value = "X" Then
    ActiveSheet.Range("G16").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G17").Value = "" Then
    If ActiveSheet.Range("B17").Value = "X" Then
    ActiveSheet.Range("G17").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C17").Value = "X" Then
    ActiveSheet.Range("G17").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G18").Value = "" Then
    If ActiveSheet.Range("B18").Value = "X" Then
    ActiveSheet.Range("G18").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C18").Value = "X" Then
    ActiveSheet.Range("G18").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G19").Value = "" Then
    If ActiveSheet.Range("B19").Value = "X" Then
    ActiveSheet.Range("G19").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C19").Value = "X" Then
    ActiveSheet.Range("G19").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G20").Value = "" Then
    If ActiveSheet.Range("B20").Value = "X" Then
    ActiveSheet.Range("G20").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C20").Value = "X" Then
    ActiveSheet.Range("G20").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G21").Value = "" Then
    If ActiveSheet.Range("B21").Value = "X" Then
    ActiveSheet.Range("G21").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C21").Value = "X" Then
    ActiveSheet.Range("G21").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G22").Value = "" Then
    If ActiveSheet.Range("B22").Value = "X" Then
    ActiveSheet.Range("G22").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C22").Value = "X" Then
    ActiveSheet.Range("G22").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G23").Value = "" Then
    If ActiveSheet.Range("B23").Value = "X" Then
    ActiveSheet.Range("G23").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C23").Value = "X" Then
    ActiveSheet.Range("G23").Interior.ColorIndex = 3
    End If
End If
'Parameter: If there is a description on a scenario that is listed as not applicable, color N/A box red.
If Not ActiveSheet.Range("G9").Value = "" Then
    If ActiveSheet.Range("D9").Value = "X" Then
    ActiveSheet.Range("D9").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G10").Value = "" Then
    If ActiveSheet.Range("D10").Value = "X" Then
    ActiveSheet.Range("D10").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G11").Value = "" Then
    If ActiveSheet.Range("D11").Value = "X" Then
    ActiveSheet.Range("D11").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G12").Value = "" Then
    If ActiveSheet.Range("D12").Value = "X" Then
    ActiveSheet.Range("D12").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G13").Value = "" Then
    If ActiveSheet.Range("D13").Value = "X" Then
    ActiveSheet.Range("D13").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G14").Value = "" Then
    If ActiveSheet.Range("D14").Value = "X" Then
    ActiveSheet.Range("D14").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G15").Value = "" Then
    If ActiveSheet.Range("D15").Value = "X" Then
    ActiveSheet.Range("D15").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G16").Value = "" Then
    If ActiveSheet.Range("D16").Value = "X" Then
    ActiveSheet.Range("D16").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G17").Value = "" Then
    If ActiveSheet.Range("D17").Value = "X" Then
    ActiveSheet.Range("D17").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G18").Value = "" Then
    If ActiveSheet.Range("D18").Value = "X" Then
    ActiveSheet.Range("D18").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G19").Value = "" Then
    If ActiveSheet.Range("D19").Value = "X" Then
    ActiveSheet.Range("D19").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G20").Value = "" Then
    If ActiveSheet.Range("D20").Value = "X" Then
    ActiveSheet.Range("D20").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G21").Value = "" Then
    If ActiveSheet.Range("D21").Value = "X" Then
    ActiveSheet.Range("D21").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G22").Value = "" Then
    If ActiveSheet.Range("D22").Value = "X" Then
    ActiveSheet.Range("D22").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G23").Value = "" Then
    If ActiveSheet.Range("D23").Value = "X" Then
    ActiveSheet.Range("D23").Interior.ColorIndex = 3
    End If
End If
'end PARAMETERS section
End If
End Sub
Sub Device9()
    If Not ActiveSheet.Range("D22").Value = "" Then
'-----------------------------^^^^-(change to the current row)
'begin add new sheet
'From http://www.mrexcel.com/archive/VBA/1869.html
    Sheets("MS77").Select
    With ActiveSheet
    MS77 = .Name
    End With
     
    Sheets("MS77").Name = Sheets("Checklist").Range("B22") & Sheets("Checklist").Range("C22") & Sheets("Checklist").Range("D22")
'----------------------------------------------------^^^^-------------------------------^^^^-------------------------------^^^^
    If Err Then MsgBox "Invalid name!", vbCritical
    On Error GoTo 0
    Worksheets.Add after:=Worksheets(Worksheets.Count)
    Worksheets(Worksheets.Count).Name = "MS77"
    If Err Then MsgBox "Invalid name!", vbCritical
    On Error GoTo 0
'end add new sheet
'change new sheet column sizes
    ActiveSheet.Columns("A:D").ColumnWidth = 2
    ActiveSheet.Columns("E:E").ColumnWidth = 15
    ActiveSheet.Columns("F:F").ColumnWidth = 34.86
    ActiveSheet.Columns("G:G").ColumnWidth = 43
    ActiveSheet.Columns("H:H").ColumnWidth = 15
'end change sizes
'begin copy over MS77 form
    Worksheets(ActiveSheet.Index - 1).Select
    ActiveSheet.Range("B2:H23").Select
    Selection.Copy
    Worksheets(ActiveSheet.Index + 1).Select
    ActiveSheet.Range("B2").Select
    ActiveSheet.Paste
    ActiveSheet.Range("B9:D23").HorizontalAlignment = xlCenter
'end copy over MS77 form
'begin info at top of MS77
    Worksheets(ActiveSheet.Index - 1).Select
    ActiveSheet.Range("F5").Value = Sheets("Checklist").Range("B22") & Sheets("Checklist").Range("C22") & Sheets("Checklist").Range("D22") & " " & Sheets("Checklist").Range("AI22")
'change these: ------------------------------------------------^^^^-------------------------------^^^^------------------------------^^^^^-------------------------------------^^^^^
'end info at top of MS77
'begin filling in checkboxes
    ActiveSheet.Range("B9:D23").HorizontalAlignment = xlCenter
    ActiveSheet.Range("D9:D23").Value = "X"
        If Sheets("Checklist").Range("E22") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D9").Value = ""
        ActiveSheet.Range("B9").Value = "X"
        End If
        If Sheets("Checklist").Range("G22") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D10").Value = ""
        ActiveSheet.Range("B10").Value = "X"
        End If
        If Sheets("Checklist").Range("I22") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D11").Value = ""
        ActiveSheet.Range("B11").Value = "X"
        End If
        If Sheets("Checklist").Range("K22") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D12").Value = ""
        ActiveSheet.Range("B12").Value = "X"
        End If
        If Sheets("Checklist").Range("M22") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D13").Value = ""
        ActiveSheet.Range("B13").Value = "X"
        End If
        If Sheets("Checklist").Range("O22") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D14").Value = ""
        ActiveSheet.Range("B14").Value = "X"
        End If
        If Sheets("Checklist").Range("Q22") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D15").Value = ""
        ActiveSheet.Range("B15").Value = "X"
        End If
        If Sheets("Checklist").Range("S22") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D16").Value = ""
        ActiveSheet.Range("B16").Value = "X"
        End If
        If Sheets("Checklist").Range("U22") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D17").Value = ""
        ActiveSheet.Range("B17").Value = "X"
        End If
        If Sheets("Checklist").Range("W22") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D18").Value = ""
        ActiveSheet.Range("B18").Value = "X"
        End If
        If Sheets("Checklist").Range("Y22") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D19").Value = ""
        ActiveSheet.Range("B19").Value = "X"
        End If
        If Sheets("Checklist").Range("AA22") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D20").Value = ""
        ActiveSheet.Range("B20").Value = "X"
        End If
        If Sheets("Checklist").Range("AC22") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D21").Value = ""
        ActiveSheet.Range("B21").Value = "X"
        End If
        If Sheets("Checklist").Range("AE22") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D22").Value = ""
        ActiveSheet.Range("B22").Value = "X"
        End If
        If Sheets("Checklist").Range("AG22") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D23").Value = ""
        ActiveSheet.Range("B23").Value = "X"
        End If
'end filling in checkboxes
'begin filling in descriptions
    ActiveSheet.Range("G9").Value = Sheets("Checklist").Range("F22")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G10").Value = Sheets("Checklist").Range("H22")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G11").Value = Sheets("Checklist").Range("J22")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G12").Value = Sheets("Checklist").Range("L22")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G13").Value = Sheets("Checklist").Range("N22")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G14").Value = Sheets("Checklist").Range("P22")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G15").Value = Sheets("Checklist").Range("R22")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G16").Value = Sheets("Checklist").Range("T22")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G17").Value = Sheets("Checklist").Range("V22")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G18").Value = Sheets("Checklist").Range("X22")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G19").Value = Sheets("Checklist").Range("Z22")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G20").Value = Sheets("Checklist").Range("AB22")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G21").Value = Sheets("Checklist").Range("AD22")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G22").Value = Sheets("Checklist").Range("AF22")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G23").Value = Sheets("Checklist").Range("AH22")
'--------------------------------------------------------------^^^^
'end filling in descriptions
'PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS
'Parameter: If there is no discription and the scenario is applicable color description box red.
If ActiveSheet.Range("G9").Value = "" Then
    If ActiveSheet.Range("B9").Value = "X" Then
    ActiveSheet.Range("G9").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C9").Value = "X" Then
    ActiveSheet.Range("G9").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G10").Value = "" Then
    If ActiveSheet.Range("B10").Value = "X" Then
    ActiveSheet.Range("G10").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C10").Value = "X" Then
    ActiveSheet.Range("G10").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G11").Value = "" Then
    If ActiveSheet.Range("B11").Value = "X" Then
    ActiveSheet.Range("G11").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C11").Value = "X" Then
    ActiveSheet.Range("G11").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G12").Value = "" Then
    If ActiveSheet.Range("B12").Value = "X" Then
    ActiveSheet.Range("G12").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C12").Value = "X" Then
    ActiveSheet.Range("G12").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G13").Value = "" Then
    If ActiveSheet.Range("B13").Value = "X" Then
    ActiveSheet.Range("G13").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C13").Value = "X" Then
    ActiveSheet.Range("G13").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G14").Value = "" Then
    If ActiveSheet.Range("B14").Value = "X" Then
    ActiveSheet.Range("G14").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C14").Value = "X" Then
    ActiveSheet.Range("G14").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G15").Value = "" Then
    If ActiveSheet.Range("B15").Value = "X" Then
    ActiveSheet.Range("G15").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C15").Value = "X" Then
    ActiveSheet.Range("G15").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G16").Value = "" Then
    If ActiveSheet.Range("B16").Value = "X" Then
    ActiveSheet.Range("G16").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C16").Value = "X" Then
    ActiveSheet.Range("G16").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G17").Value = "" Then
    If ActiveSheet.Range("B17").Value = "X" Then
    ActiveSheet.Range("G17").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C17").Value = "X" Then
    ActiveSheet.Range("G17").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G18").Value = "" Then
    If ActiveSheet.Range("B18").Value = "X" Then
    ActiveSheet.Range("G18").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C18").Value = "X" Then
    ActiveSheet.Range("G18").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G19").Value = "" Then
    If ActiveSheet.Range("B19").Value = "X" Then
    ActiveSheet.Range("G19").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C19").Value = "X" Then
    ActiveSheet.Range("G19").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G20").Value = "" Then
    If ActiveSheet.Range("B20").Value = "X" Then
    ActiveSheet.Range("G20").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C20").Value = "X" Then
    ActiveSheet.Range("G20").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G21").Value = "" Then
    If ActiveSheet.Range("B21").Value = "X" Then
    ActiveSheet.Range("G21").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C21").Value = "X" Then
    ActiveSheet.Range("G21").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G22").Value = "" Then
    If ActiveSheet.Range("B22").Value = "X" Then
    ActiveSheet.Range("G22").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C22").Value = "X" Then
    ActiveSheet.Range("G22").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G23").Value = "" Then
    If ActiveSheet.Range("B23").Value = "X" Then
    ActiveSheet.Range("G23").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C23").Value = "X" Then
    ActiveSheet.Range("G23").Interior.ColorIndex = 3
    End If
End If
'Parameter: If there is a description on a scenario that is listed as not applicable, color N/A box red.
If Not ActiveSheet.Range("G9").Value = "" Then
    If ActiveSheet.Range("D9").Value = "X" Then
    ActiveSheet.Range("D9").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G10").Value = "" Then
    If ActiveSheet.Range("D10").Value = "X" Then
    ActiveSheet.Range("D10").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G11").Value = "" Then
    If ActiveSheet.Range("D11").Value = "X" Then
    ActiveSheet.Range("D11").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G12").Value = "" Then
    If ActiveSheet.Range("D12").Value = "X" Then
    ActiveSheet.Range("D12").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G13").Value = "" Then
    If ActiveSheet.Range("D13").Value = "X" Then
    ActiveSheet.Range("D13").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G14").Value = "" Then
    If ActiveSheet.Range("D14").Value = "X" Then
    ActiveSheet.Range("D14").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G15").Value = "" Then
    If ActiveSheet.Range("D15").Value = "X" Then
    ActiveSheet.Range("D15").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G16").Value = "" Then
    If ActiveSheet.Range("D16").Value = "X" Then
    ActiveSheet.Range("D16").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G17").Value = "" Then
    If ActiveSheet.Range("D17").Value = "X" Then
    ActiveSheet.Range("D17").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G18").Value = "" Then
    If ActiveSheet.Range("D18").Value = "X" Then
    ActiveSheet.Range("D18").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G19").Value = "" Then
    If ActiveSheet.Range("D19").Value = "X" Then
    ActiveSheet.Range("D19").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G20").Value = "" Then
    If ActiveSheet.Range("D20").Value = "X" Then
    ActiveSheet.Range("D20").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G21").Value = "" Then
    If ActiveSheet.Range("D21").Value = "X" Then
    ActiveSheet.Range("D21").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G22").Value = "" Then
    If ActiveSheet.Range("D22").Value = "X" Then
    ActiveSheet.Range("D22").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G23").Value = "" Then
    If ActiveSheet.Range("D23").Value = "X" Then
    ActiveSheet.Range("D23").Interior.ColorIndex = 3
    End If
End If
'end PARAMETERS section
End If
End Sub
Sub Device10()
    If Not ActiveSheet.Range("D23").Value = "" Then
'-----------------------------^^^^-(change to the current row)
'begin add new sheet
'From http://www.mrexcel.com/archive/VBA/1869.html
    Sheets("MS77").Select
    With ActiveSheet
    MS77 = .Name
    End With
     
    Sheets("MS77").Name = Sheets("Checklist").Range("B23") & Sheets("Checklist").Range("C23") & Sheets("Checklist").Range("D23")
'----------------------------------------------------^^^^-------------------------------^^^^-------------------------------^^^^
    If Err Then MsgBox "Invalid name!", vbCritical
    On Error GoTo 0
    Worksheets.Add after:=Worksheets(Worksheets.Count)
    Worksheets(Worksheets.Count).Name = "MS77"
    If Err Then MsgBox "Invalid name!", vbCritical
    On Error GoTo 0
'end add new sheet
'change new sheet column sizes
    ActiveSheet.Columns("A:D").ColumnWidth = 2
    ActiveSheet.Columns("E:E").ColumnWidth = 15
    ActiveSheet.Columns("F:F").ColumnWidth = 34.86
    ActiveSheet.Columns("G:G").ColumnWidth = 43
    ActiveSheet.Columns("H:H").ColumnWidth = 15
'end change sizes
'begin copy over MS77 form
    Worksheets(ActiveSheet.Index - 1).Select
    ActiveSheet.Range("B2:H23").Select
    Selection.Copy
    Worksheets(ActiveSheet.Index + 1).Select
    ActiveSheet.Range("B2").Select
    ActiveSheet.Paste
    ActiveSheet.Range("B9:D23").HorizontalAlignment = xlCenter
'end copy over MS77 form
'begin info at top of MS77
    Worksheets(ActiveSheet.Index - 1).Select
    ActiveSheet.Range("F5").Value = Sheets("Checklist").Range("B23") & Sheets("Checklist").Range("C23") & Sheets("Checklist").Range("D23") & " " & Sheets("Checklist").Range("AI23")
'change these: ------------------------------------------------^^^^-------------------------------^^^^------------------------------^^^^^-------------------------------------^^^^^
'end info at top of MS77
'begin filling in checkboxes
    ActiveSheet.Range("B9:D23").HorizontalAlignment = xlCenter
    ActiveSheet.Range("D9:D23").Value = "X"
        If Sheets("Checklist").Range("E23") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D9").Value = ""
        ActiveSheet.Range("B9").Value = "X"
        End If
        If Sheets("Checklist").Range("G23") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D10").Value = ""
        ActiveSheet.Range("B10").Value = "X"
        End If
        If Sheets("Checklist").Range("I23") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D11").Value = ""
        ActiveSheet.Range("B11").Value = "X"
        End If
        If Sheets("Checklist").Range("K23") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D12").Value = ""
        ActiveSheet.Range("B12").Value = "X"
        End If
        If Sheets("Checklist").Range("M23") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D13").Value = ""
        ActiveSheet.Range("B13").Value = "X"
        End If
        If Sheets("Checklist").Range("O23") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D14").Value = ""
        ActiveSheet.Range("B14").Value = "X"
        End If
        If Sheets("Checklist").Range("Q23") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D15").Value = ""
        ActiveSheet.Range("B15").Value = "X"
        End If
        If Sheets("Checklist").Range("S23") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D16").Value = ""
        ActiveSheet.Range("B16").Value = "X"
        End If
        If Sheets("Checklist").Range("U23") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D17").Value = ""
        ActiveSheet.Range("B17").Value = "X"
        End If
        If Sheets("Checklist").Range("W23") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D18").Value = ""
        ActiveSheet.Range("B18").Value = "X"
        End If
        If Sheets("Checklist").Range("Y23") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D19").Value = ""
        ActiveSheet.Range("B19").Value = "X"
        End If
        If Sheets("Checklist").Range("AA23") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D20").Value = ""
        ActiveSheet.Range("B20").Value = "X"
        End If
        If Sheets("Checklist").Range("AC23") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D21").Value = ""
        ActiveSheet.Range("B21").Value = "X"
        End If
        If Sheets("Checklist").Range("AE23") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D22").Value = ""
        ActiveSheet.Range("B22").Value = "X"
        End If
        If Sheets("Checklist").Range("AG23") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D23").Value = ""
        ActiveSheet.Range("B23").Value = "X"
        End If
'end filling in checkboxes
'begin filling in descriptions
    ActiveSheet.Range("G9").Value = Sheets("Checklist").Range("F23")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G10").Value = Sheets("Checklist").Range("H23")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G11").Value = Sheets("Checklist").Range("J23")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G12").Value = Sheets("Checklist").Range("L23")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G13").Value = Sheets("Checklist").Range("N23")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G14").Value = Sheets("Checklist").Range("P23")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G15").Value = Sheets("Checklist").Range("R23")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G16").Value = Sheets("Checklist").Range("T23")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G17").Value = Sheets("Checklist").Range("V23")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G18").Value = Sheets("Checklist").Range("X23")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G19").Value = Sheets("Checklist").Range("Z23")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G20").Value = Sheets("Checklist").Range("AB23")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G21").Value = Sheets("Checklist").Range("AD23")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G22").Value = Sheets("Checklist").Range("AF23")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G23").Value = Sheets("Checklist").Range("AH23")
'--------------------------------------------------------------^^^^
'end filling in descriptions
'PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS
'Parameter: If there is no discription and the scenario is applicable color description box red.
If ActiveSheet.Range("G9").Value = "" Then
    If ActiveSheet.Range("B9").Value = "X" Then
    ActiveSheet.Range("G9").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C9").Value = "X" Then
    ActiveSheet.Range("G9").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G10").Value = "" Then
    If ActiveSheet.Range("B10").Value = "X" Then
    ActiveSheet.Range("G10").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C10").Value = "X" Then
    ActiveSheet.Range("G10").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G11").Value = "" Then
    If ActiveSheet.Range("B11").Value = "X" Then
    ActiveSheet.Range("G11").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C11").Value = "X" Then
    ActiveSheet.Range("G11").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G12").Value = "" Then
    If ActiveSheet.Range("B12").Value = "X" Then
    ActiveSheet.Range("G12").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C12").Value = "X" Then
    ActiveSheet.Range("G12").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G13").Value = "" Then
    If ActiveSheet.Range("B13").Value = "X" Then
    ActiveSheet.Range("G13").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C13").Value = "X" Then
    ActiveSheet.Range("G13").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G14").Value = "" Then
    If ActiveSheet.Range("B14").Value = "X" Then
    ActiveSheet.Range("G14").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C14").Value = "X" Then
    ActiveSheet.Range("G14").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G15").Value = "" Then
    If ActiveSheet.Range("B15").Value = "X" Then
    ActiveSheet.Range("G15").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C15").Value = "X" Then
    ActiveSheet.Range("G15").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G16").Value = "" Then
    If ActiveSheet.Range("B16").Value = "X" Then
    ActiveSheet.Range("G16").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C16").Value = "X" Then
    ActiveSheet.Range("G16").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G17").Value = "" Then
    If ActiveSheet.Range("B17").Value = "X" Then
    ActiveSheet.Range("G17").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C17").Value = "X" Then
    ActiveSheet.Range("G17").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G18").Value = "" Then
    If ActiveSheet.Range("B18").Value = "X" Then
    ActiveSheet.Range("G18").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C18").Value = "X" Then
    ActiveSheet.Range("G18").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G19").Value = "" Then
    If ActiveSheet.Range("B19").Value = "X" Then
    ActiveSheet.Range("G19").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C19").Value = "X" Then
    ActiveSheet.Range("G19").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G20").Value = "" Then
    If ActiveSheet.Range("B20").Value = "X" Then
    ActiveSheet.Range("G20").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C20").Value = "X" Then
    ActiveSheet.Range("G20").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G21").Value = "" Then
    If ActiveSheet.Range("B21").Value = "X" Then
    ActiveSheet.Range("G21").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C21").Value = "X" Then
    ActiveSheet.Range("G21").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G22").Value = "" Then
    If ActiveSheet.Range("B22").Value = "X" Then
    ActiveSheet.Range("G22").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C22").Value = "X" Then
    ActiveSheet.Range("G22").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G23").Value = "" Then
    If ActiveSheet.Range("B23").Value = "X" Then
    ActiveSheet.Range("G23").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C23").Value = "X" Then
    ActiveSheet.Range("G23").Interior.ColorIndex = 3
    End If
End If
'Parameter: If there is a description on a scenario that is listed as not applicable, color N/A box red.
If Not ActiveSheet.Range("G9").Value = "" Then
    If ActiveSheet.Range("D9").Value = "X" Then
    ActiveSheet.Range("D9").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G10").Value = "" Then
    If ActiveSheet.Range("D10").Value = "X" Then
    ActiveSheet.Range("D10").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G11").Value = "" Then
    If ActiveSheet.Range("D11").Value = "X" Then
    ActiveSheet.Range("D11").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G12").Value = "" Then
    If ActiveSheet.Range("D12").Value = "X" Then
    ActiveSheet.Range("D12").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G13").Value = "" Then
    If ActiveSheet.Range("D13").Value = "X" Then
    ActiveSheet.Range("D13").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G14").Value = "" Then
    If ActiveSheet.Range("D14").Value = "X" Then
    ActiveSheet.Range("D14").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G15").Value = "" Then
    If ActiveSheet.Range("D15").Value = "X" Then
    ActiveSheet.Range("D15").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G16").Value = "" Then
    If ActiveSheet.Range("D16").Value = "X" Then
    ActiveSheet.Range("D16").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G17").Value = "" Then
    If ActiveSheet.Range("D17").Value = "X" Then
    ActiveSheet.Range("D17").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G18").Value = "" Then
    If ActiveSheet.Range("D18").Value = "X" Then
    ActiveSheet.Range("D18").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G19").Value = "" Then
    If ActiveSheet.Range("D19").Value = "X" Then
    ActiveSheet.Range("D19").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G20").Value = "" Then
    If ActiveSheet.Range("D20").Value = "X" Then
    ActiveSheet.Range("D20").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G21").Value = "" Then
    If ActiveSheet.Range("D21").Value = "X" Then
    ActiveSheet.Range("D21").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G22").Value = "" Then
    If ActiveSheet.Range("D22").Value = "X" Then
    ActiveSheet.Range("D22").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G23").Value = "" Then
    If ActiveSheet.Range("D23").Value = "X" Then
    ActiveSheet.Range("D23").Interior.ColorIndex = 3
    End If
End If
'end PARAMETERS section
End If
End Sub
Sub Device11()
    If Not ActiveSheet.Range("D24").Value = "" Then
'-----------------------------^^^^-(change to the current row)
'begin add new sheet
'From http://www.mrexcel.com/archive/VBA/1869.html
    Sheets("MS77").Select
    With ActiveSheet
    MS77 = .Name
    End With
     
    Sheets("MS77").Name = Sheets("Checklist").Range("B24") & Sheets("Checklist").Range("C24") & Sheets("Checklist").Range("D24")
'----------------------------------------------------^^^^-------------------------------^^^^-------------------------------^^^^
    If Err Then MsgBox "Invalid name!", vbCritical
    On Error GoTo 0
    Worksheets.Add after:=Worksheets(Worksheets.Count)
    Worksheets(Worksheets.Count).Name = "MS77"
    If Err Then MsgBox "Invalid name!", vbCritical
    On Error GoTo 0
'end add new sheet
'change new sheet column sizes
    ActiveSheet.Columns("A:D").ColumnWidth = 2
    ActiveSheet.Columns("E:E").ColumnWidth = 15
    ActiveSheet.Columns("F:F").ColumnWidth = 34.86
    ActiveSheet.Columns("G:G").ColumnWidth = 43
    ActiveSheet.Columns("H:H").ColumnWidth = 15
'end change sizes
'begin copy over MS77 form
    Worksheets(ActiveSheet.Index - 1).Select
    ActiveSheet.Range("B2:H23").Select
    Selection.Copy
    Worksheets(ActiveSheet.Index + 1).Select
    ActiveSheet.Range("B2").Select
    ActiveSheet.Paste
    ActiveSheet.Range("B9:D23").HorizontalAlignment = xlCenter
'end copy over MS77 form
'begin info at top of MS77
    Worksheets(ActiveSheet.Index - 1).Select
    ActiveSheet.Range("F5").Value = Sheets("Checklist").Range("B24") & Sheets("Checklist").Range("C24") & Sheets("Checklist").Range("D24") & " " & Sheets("Checklist").Range("AI24")
'change these: ------------------------------------------------^^^^-------------------------------^^^^------------------------------^^^^^-------------------------------------^^^^^
'end info at top of MS77
'begin filling in checkboxes
    ActiveSheet.Range("B9:D23").HorizontalAlignment = xlCenter
    ActiveSheet.Range("D9:D23").Value = "X"
        If Sheets("Checklist").Range("E24") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D9").Value = ""
        ActiveSheet.Range("B9").Value = "X"
        End If
        If Sheets("Checklist").Range("G24") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D10").Value = ""
        ActiveSheet.Range("B10").Value = "X"
        End If
        If Sheets("Checklist").Range("I24") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D11").Value = ""
        ActiveSheet.Range("B11").Value = "X"
        End If
        If Sheets("Checklist").Range("K24") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D12").Value = ""
        ActiveSheet.Range("B12").Value = "X"
        End If
        If Sheets("Checklist").Range("M24") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D13").Value = ""
        ActiveSheet.Range("B13").Value = "X"
        End If
        If Sheets("Checklist").Range("O24") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D14").Value = ""
        ActiveSheet.Range("B14").Value = "X"
        End If
        If Sheets("Checklist").Range("Q24") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D15").Value = ""
        ActiveSheet.Range("B15").Value = "X"
        End If
        If Sheets("Checklist").Range("S24") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D16").Value = ""
        ActiveSheet.Range("B16").Value = "X"
        End If
        If Sheets("Checklist").Range("U24") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D17").Value = ""
        ActiveSheet.Range("B17").Value = "X"
        End If
        If Sheets("Checklist").Range("W24") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D18").Value = ""
        ActiveSheet.Range("B18").Value = "X"
        End If
        If Sheets("Checklist").Range("Y24") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D19").Value = ""
        ActiveSheet.Range("B19").Value = "X"
        End If
        If Sheets("Checklist").Range("AA24") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D20").Value = ""
        ActiveSheet.Range("B20").Value = "X"
        End If
        If Sheets("Checklist").Range("AC24") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D21").Value = ""
        ActiveSheet.Range("B21").Value = "X"
        End If
        If Sheets("Checklist").Range("AE24") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D22").Value = ""
        ActiveSheet.Range("B22").Value = "X"
        End If
        If Sheets("Checklist").Range("AG24") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D23").Value = ""
        ActiveSheet.Range("B23").Value = "X"
        End If
'end filling in checkboxes
'begin filling in descriptions
    ActiveSheet.Range("G9").Value = Sheets("Checklist").Range("F24")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G10").Value = Sheets("Checklist").Range("H24")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G11").Value = Sheets("Checklist").Range("J24")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G12").Value = Sheets("Checklist").Range("L24")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G13").Value = Sheets("Checklist").Range("N24")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G14").Value = Sheets("Checklist").Range("P24")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G15").Value = Sheets("Checklist").Range("R24")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G16").Value = Sheets("Checklist").Range("T24")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G17").Value = Sheets("Checklist").Range("V24")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G18").Value = Sheets("Checklist").Range("X24")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G19").Value = Sheets("Checklist").Range("Z24")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G20").Value = Sheets("Checklist").Range("AB24")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G21").Value = Sheets("Checklist").Range("AD24")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G22").Value = Sheets("Checklist").Range("AF24")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G23").Value = Sheets("Checklist").Range("AH24")
'--------------------------------------------------------------^^^^
'end filling in descriptions
'PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS
'Parameter: If there is no discription and the scenario is applicable color description box red.
If ActiveSheet.Range("G9").Value = "" Then
    If ActiveSheet.Range("B9").Value = "X" Then
    ActiveSheet.Range("G9").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C9").Value = "X" Then
    ActiveSheet.Range("G9").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G10").Value = "" Then
    If ActiveSheet.Range("B10").Value = "X" Then
    ActiveSheet.Range("G10").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C10").Value = "X" Then
    ActiveSheet.Range("G10").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G11").Value = "" Then
    If ActiveSheet.Range("B11").Value = "X" Then
    ActiveSheet.Range("G11").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C11").Value = "X" Then
    ActiveSheet.Range("G11").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G12").Value = "" Then
    If ActiveSheet.Range("B12").Value = "X" Then
    ActiveSheet.Range("G12").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C12").Value = "X" Then
    ActiveSheet.Range("G12").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G13").Value = "" Then
    If ActiveSheet.Range("B13").Value = "X" Then
    ActiveSheet.Range("G13").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C13").Value = "X" Then
    ActiveSheet.Range("G13").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G14").Value = "" Then
    If ActiveSheet.Range("B14").Value = "X" Then
    ActiveSheet.Range("G14").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C14").Value = "X" Then
    ActiveSheet.Range("G14").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G15").Value = "" Then
    If ActiveSheet.Range("B15").Value = "X" Then
    ActiveSheet.Range("G15").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C15").Value = "X" Then
    ActiveSheet.Range("G15").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G16").Value = "" Then
    If ActiveSheet.Range("B16").Value = "X" Then
    ActiveSheet.Range("G16").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C16").Value = "X" Then
    ActiveSheet.Range("G16").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G17").Value = "" Then
    If ActiveSheet.Range("B17").Value = "X" Then
    ActiveSheet.Range("G17").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C17").Value = "X" Then
    ActiveSheet.Range("G17").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G18").Value = "" Then
    If ActiveSheet.Range("B18").Value = "X" Then
    ActiveSheet.Range("G18").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C18").Value = "X" Then
    ActiveSheet.Range("G18").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G19").Value = "" Then
    If ActiveSheet.Range("B19").Value = "X" Then
    ActiveSheet.Range("G19").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C19").Value = "X" Then
    ActiveSheet.Range("G19").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G20").Value = "" Then
    If ActiveSheet.Range("B20").Value = "X" Then
    ActiveSheet.Range("G20").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C20").Value = "X" Then
    ActiveSheet.Range("G20").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G21").Value = "" Then
    If ActiveSheet.Range("B21").Value = "X" Then
    ActiveSheet.Range("G21").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C21").Value = "X" Then
    ActiveSheet.Range("G21").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G22").Value = "" Then
    If ActiveSheet.Range("B22").Value = "X" Then
    ActiveSheet.Range("G22").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C22").Value = "X" Then
    ActiveSheet.Range("G22").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G23").Value = "" Then
    If ActiveSheet.Range("B23").Value = "X" Then
    ActiveSheet.Range("G23").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C23").Value = "X" Then
    ActiveSheet.Range("G23").Interior.ColorIndex = 3
    End If
End If
'Parameter: If there is a description on a scenario that is listed as not applicable, color N/A box red.
If Not ActiveSheet.Range("G9").Value = "" Then
    If ActiveSheet.Range("D9").Value = "X" Then
    ActiveSheet.Range("D9").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G10").Value = "" Then
    If ActiveSheet.Range("D10").Value = "X" Then
    ActiveSheet.Range("D10").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G11").Value = "" Then
    If ActiveSheet.Range("D11").Value = "X" Then
    ActiveSheet.Range("D11").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G12").Value = "" Then
    If ActiveSheet.Range("D12").Value = "X" Then
    ActiveSheet.Range("D12").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G13").Value = "" Then
    If ActiveSheet.Range("D13").Value = "X" Then
    ActiveSheet.Range("D13").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G14").Value = "" Then
    If ActiveSheet.Range("D14").Value = "X" Then
    ActiveSheet.Range("D14").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G15").Value = "" Then
    If ActiveSheet.Range("D15").Value = "X" Then
    ActiveSheet.Range("D15").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G16").Value = "" Then
    If ActiveSheet.Range("D16").Value = "X" Then
    ActiveSheet.Range("D16").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G17").Value = "" Then
    If ActiveSheet.Range("D17").Value = "X" Then
    ActiveSheet.Range("D17").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G18").Value = "" Then
    If ActiveSheet.Range("D18").Value = "X" Then
    ActiveSheet.Range("D18").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G19").Value = "" Then
    If ActiveSheet.Range("D19").Value = "X" Then
    ActiveSheet.Range("D19").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G20").Value = "" Then
    If ActiveSheet.Range("D20").Value = "X" Then
    ActiveSheet.Range("D20").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G21").Value = "" Then
    If ActiveSheet.Range("D21").Value = "X" Then
    ActiveSheet.Range("D21").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G22").Value = "" Then
    If ActiveSheet.Range("D22").Value = "X" Then
    ActiveSheet.Range("D22").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G23").Value = "" Then
    If ActiveSheet.Range("D23").Value = "X" Then
    ActiveSheet.Range("D23").Interior.ColorIndex = 3
    End If
End If
'end PARAMETERS section
End If
End Sub
Sub Device12()
    If Not ActiveSheet.Range("D25").Value = "" Then
'-----------------------------^^^^-(change to the current row)
'begin add new sheet
'From http://www.mrexcel.com/archive/VBA/1869.html
    Sheets("MS77").Select
    With ActiveSheet
    MS77 = .Name
    End With
     
    Sheets("MS77").Name = Sheets("Checklist").Range("B25") & Sheets("Checklist").Range("C25") & Sheets("Checklist").Range("D25")
'----------------------------------------------------^^^^-------------------------------^^^^-------------------------------^^^^
    If Err Then MsgBox "Invalid name!", vbCritical
    On Error GoTo 0
    Worksheets.Add after:=Worksheets(Worksheets.Count)
    Worksheets(Worksheets.Count).Name = "MS77"
    If Err Then MsgBox "Invalid name!", vbCritical
    On Error GoTo 0
'end add new sheet
'change new sheet column sizes
    ActiveSheet.Columns("A:D").ColumnWidth = 2
    ActiveSheet.Columns("E:E").ColumnWidth = 15
    ActiveSheet.Columns("F:F").ColumnWidth = 34.86
    ActiveSheet.Columns("G:G").ColumnWidth = 43
    ActiveSheet.Columns("H:H").ColumnWidth = 15
'end change sizes
'begin copy over MS77 form
    Worksheets(ActiveSheet.Index - 1).Select
    ActiveSheet.Range("B2:H23").Select
    Selection.Copy
    Worksheets(ActiveSheet.Index + 1).Select
    ActiveSheet.Range("B2").Select
    ActiveSheet.Paste
    ActiveSheet.Range("B9:D23").HorizontalAlignment = xlCenter
'end copy over MS77 form
'begin info at top of MS77
    Worksheets(ActiveSheet.Index - 1).Select
    ActiveSheet.Range("F5").Value = Sheets("Checklist").Range("B25") & Sheets("Checklist").Range("C25") & Sheets("Checklist").Range("D25") & " " & Sheets("Checklist").Range("AI25")
'change these: ------------------------------------------------^^^^-------------------------------^^^^------------------------------^^^^^-------------------------------------^^^^^
'end info at top of MS77
'begin filling in checkboxes
    ActiveSheet.Range("B9:D23").HorizontalAlignment = xlCenter
    ActiveSheet.Range("D9:D23").Value = "X"
        If Sheets("Checklist").Range("E25") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D9").Value = ""
        ActiveSheet.Range("B9").Value = "X"
        End If
        If Sheets("Checklist").Range("G25") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D10").Value = ""
        ActiveSheet.Range("B10").Value = "X"
        End If
        If Sheets("Checklist").Range("I25") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D11").Value = ""
        ActiveSheet.Range("B11").Value = "X"
        End If
        If Sheets("Checklist").Range("K25") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D12").Value = ""
        ActiveSheet.Range("B12").Value = "X"
        End If
        If Sheets("Checklist").Range("M25") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D13").Value = ""
        ActiveSheet.Range("B13").Value = "X"
        End If
        If Sheets("Checklist").Range("O25") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D14").Value = ""
        ActiveSheet.Range("B14").Value = "X"
        End If
        If Sheets("Checklist").Range("Q25") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D15").Value = ""
        ActiveSheet.Range("B15").Value = "X"
        End If
        If Sheets("Checklist").Range("S25") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D16").Value = ""
        ActiveSheet.Range("B16").Value = "X"
        End If
        If Sheets("Checklist").Range("U25") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D17").Value = ""
        ActiveSheet.Range("B17").Value = "X"
        End If
        If Sheets("Checklist").Range("W25") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D18").Value = ""
        ActiveSheet.Range("B18").Value = "X"
        End If
        If Sheets("Checklist").Range("Y25") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D19").Value = ""
        ActiveSheet.Range("B19").Value = "X"
        End If
        If Sheets("Checklist").Range("AA25") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D20").Value = ""
        ActiveSheet.Range("B20").Value = "X"
        End If
        If Sheets("Checklist").Range("AC25") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D21").Value = ""
        ActiveSheet.Range("B21").Value = "X"
        End If
        If Sheets("Checklist").Range("AE25") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D22").Value = ""
        ActiveSheet.Range("B22").Value = "X"
        End If
        If Sheets("Checklist").Range("AG25") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D23").Value = ""
        ActiveSheet.Range("B23").Value = "X"
        End If
'end filling in checkboxes
'begin filling in descriptions
    ActiveSheet.Range("G9").Value = Sheets("Checklist").Range("F25")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G10").Value = Sheets("Checklist").Range("H25")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G11").Value = Sheets("Checklist").Range("J25")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G12").Value = Sheets("Checklist").Range("L25")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G13").Value = Sheets("Checklist").Range("N25")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G14").Value = Sheets("Checklist").Range("P25")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G15").Value = Sheets("Checklist").Range("R25")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G16").Value = Sheets("Checklist").Range("T25")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G17").Value = Sheets("Checklist").Range("V25")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G18").Value = Sheets("Checklist").Range("X25")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G19").Value = Sheets("Checklist").Range("Z25")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G20").Value = Sheets("Checklist").Range("AB25")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G21").Value = Sheets("Checklist").Range("AD25")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G22").Value = Sheets("Checklist").Range("AF25")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G23").Value = Sheets("Checklist").Range("AH25")
'--------------------------------------------------------------^^^^
'end filling in descriptions
'PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS
'Parameter: If there is no discription and the scenario is applicable color description box red.
If ActiveSheet.Range("G9").Value = "" Then
    If ActiveSheet.Range("B9").Value = "X" Then
    ActiveSheet.Range("G9").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C9").Value = "X" Then
    ActiveSheet.Range("G9").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G10").Value = "" Then
    If ActiveSheet.Range("B10").Value = "X" Then
    ActiveSheet.Range("G10").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C10").Value = "X" Then
    ActiveSheet.Range("G10").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G11").Value = "" Then
    If ActiveSheet.Range("B11").Value = "X" Then
    ActiveSheet.Range("G11").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C11").Value = "X" Then
    ActiveSheet.Range("G11").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G12").Value = "" Then
    If ActiveSheet.Range("B12").Value = "X" Then
    ActiveSheet.Range("G12").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C12").Value = "X" Then
    ActiveSheet.Range("G12").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G13").Value = "" Then
    If ActiveSheet.Range("B13").Value = "X" Then
    ActiveSheet.Range("G13").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C13").Value = "X" Then
    ActiveSheet.Range("G13").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G14").Value = "" Then
    If ActiveSheet.Range("B14").Value = "X" Then
    ActiveSheet.Range("G14").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C14").Value = "X" Then
    ActiveSheet.Range("G14").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G15").Value = "" Then
    If ActiveSheet.Range("B15").Value = "X" Then
    ActiveSheet.Range("G15").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C15").Value = "X" Then
    ActiveSheet.Range("G15").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G16").Value = "" Then
    If ActiveSheet.Range("B16").Value = "X" Then
    ActiveSheet.Range("G16").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C16").Value = "X" Then
    ActiveSheet.Range("G16").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G17").Value = "" Then
    If ActiveSheet.Range("B17").Value = "X" Then
    ActiveSheet.Range("G17").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C17").Value = "X" Then
    ActiveSheet.Range("G17").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G18").Value = "" Then
    If ActiveSheet.Range("B18").Value = "X" Then
    ActiveSheet.Range("G18").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C18").Value = "X" Then
    ActiveSheet.Range("G18").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G19").Value = "" Then
    If ActiveSheet.Range("B19").Value = "X" Then
    ActiveSheet.Range("G19").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C19").Value = "X" Then
    ActiveSheet.Range("G19").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G20").Value = "" Then
    If ActiveSheet.Range("B20").Value = "X" Then
    ActiveSheet.Range("G20").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C20").Value = "X" Then
    ActiveSheet.Range("G20").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G21").Value = "" Then
    If ActiveSheet.Range("B21").Value = "X" Then
    ActiveSheet.Range("G21").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C21").Value = "X" Then
    ActiveSheet.Range("G21").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G22").Value = "" Then
    If ActiveSheet.Range("B22").Value = "X" Then
    ActiveSheet.Range("G22").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C22").Value = "X" Then
    ActiveSheet.Range("G22").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G23").Value = "" Then
    If ActiveSheet.Range("B23").Value = "X" Then
    ActiveSheet.Range("G23").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C23").Value = "X" Then
    ActiveSheet.Range("G23").Interior.ColorIndex = 3
    End If
End If
'Parameter: If there is a description on a scenario that is listed as not applicable, color N/A box red.
If Not ActiveSheet.Range("G9").Value = "" Then
    If ActiveSheet.Range("D9").Value = "X" Then
    ActiveSheet.Range("D9").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G10").Value = "" Then
    If ActiveSheet.Range("D10").Value = "X" Then
    ActiveSheet.Range("D10").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G11").Value = "" Then
    If ActiveSheet.Range("D11").Value = "X" Then
    ActiveSheet.Range("D11").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G12").Value = "" Then
    If ActiveSheet.Range("D12").Value = "X" Then
    ActiveSheet.Range("D12").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G13").Value = "" Then
    If ActiveSheet.Range("D13").Value = "X" Then
    ActiveSheet.Range("D13").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G14").Value = "" Then
    If ActiveSheet.Range("D14").Value = "X" Then
    ActiveSheet.Range("D14").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G15").Value = "" Then
    If ActiveSheet.Range("D15").Value = "X" Then
    ActiveSheet.Range("D15").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G16").Value = "" Then
    If ActiveSheet.Range("D16").Value = "X" Then
    ActiveSheet.Range("D16").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G17").Value = "" Then
    If ActiveSheet.Range("D17").Value = "X" Then
    ActiveSheet.Range("D17").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G18").Value = "" Then
    If ActiveSheet.Range("D18").Value = "X" Then
    ActiveSheet.Range("D18").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G19").Value = "" Then
    If ActiveSheet.Range("D19").Value = "X" Then
    ActiveSheet.Range("D19").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G20").Value = "" Then
    If ActiveSheet.Range("D20").Value = "X" Then
    ActiveSheet.Range("D20").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G21").Value = "" Then
    If ActiveSheet.Range("D21").Value = "X" Then
    ActiveSheet.Range("D21").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G22").Value = "" Then
    If ActiveSheet.Range("D22").Value = "X" Then
    ActiveSheet.Range("D22").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G23").Value = "" Then
    If ActiveSheet.Range("D23").Value = "X" Then
    ActiveSheet.Range("D23").Interior.ColorIndex = 3
    End If
End If
'end PARAMETERS section
End If
End Sub
Sub Device13()
    If Not ActiveSheet.Range("D26").Value = "" Then
'-----------------------------^^^^-(change to the current row)
'begin add new sheet
'From http://www.mrexcel.com/archive/VBA/1869.html
    Sheets("MS77").Select
    With ActiveSheet
    MS77 = .Name
    End With
     
    Sheets("MS77").Name = Sheets("Checklist").Range("B26") & Sheets("Checklist").Range("C26") & Sheets("Checklist").Range("D26")
'----------------------------------------------------^^^^-------------------------------^^^^-------------------------------^^^^
    If Err Then MsgBox "Invalid name!", vbCritical
    On Error GoTo 0
    Worksheets.Add after:=Worksheets(Worksheets.Count)
    Worksheets(Worksheets.Count).Name = "MS77"
    If Err Then MsgBox "Invalid name!", vbCritical
    On Error GoTo 0
'end add new sheet
'change new sheet column sizes
    ActiveSheet.Columns("A:D").ColumnWidth = 2
    ActiveSheet.Columns("E:E").ColumnWidth = 15
    ActiveSheet.Columns("F:F").ColumnWidth = 34.86
    ActiveSheet.Columns("G:G").ColumnWidth = 43
    ActiveSheet.Columns("H:H").ColumnWidth = 15
'end change sizes
'begin copy over MS77 form
    Worksheets(ActiveSheet.Index - 1).Select
    ActiveSheet.Range("B2:H23").Select
    Selection.Copy
    Worksheets(ActiveSheet.Index + 1).Select
    ActiveSheet.Range("B2").Select
    ActiveSheet.Paste
    ActiveSheet.Range("B9:D23").HorizontalAlignment = xlCenter
'end copy over MS77 form
'begin info at top of MS77
    Worksheets(ActiveSheet.Index - 1).Select
    ActiveSheet.Range("F5").Value = Sheets("Checklist").Range("B26") & Sheets("Checklist").Range("C26") & Sheets("Checklist").Range("D26") & " " & Sheets("Checklist").Range("AI26")
'change these: ------------------------------------------------^^^^-------------------------------^^^^------------------------------^^^^^-------------------------------------^^^^^
'end info at top of MS77
'begin filling in checkboxes
    ActiveSheet.Range("B9:D23").HorizontalAlignment = xlCenter
    ActiveSheet.Range("D9:D23").Value = "X"
        If Sheets("Checklist").Range("E26") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D9").Value = ""
        ActiveSheet.Range("B9").Value = "X"
        End If
        If Sheets("Checklist").Range("G26") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D10").Value = ""
        ActiveSheet.Range("B10").Value = "X"
        End If
        If Sheets("Checklist").Range("I26") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D11").Value = ""
        ActiveSheet.Range("B11").Value = "X"
        End If
        If Sheets("Checklist").Range("K26") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D12").Value = ""
        ActiveSheet.Range("B12").Value = "X"
        End If
        If Sheets("Checklist").Range("M26") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D13").Value = ""
        ActiveSheet.Range("B13").Value = "X"
        End If
        If Sheets("Checklist").Range("O26") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D14").Value = ""
        ActiveSheet.Range("B14").Value = "X"
        End If
        If Sheets("Checklist").Range("Q26") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D15").Value = ""
        ActiveSheet.Range("B15").Value = "X"
        End If
        If Sheets("Checklist").Range("S26") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D16").Value = ""
        ActiveSheet.Range("B16").Value = "X"
        End If
        If Sheets("Checklist").Range("U26") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D17").Value = ""
        ActiveSheet.Range("B17").Value = "X"
        End If
        If Sheets("Checklist").Range("W26") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D18").Value = ""
        ActiveSheet.Range("B18").Value = "X"
        End If
        If Sheets("Checklist").Range("Y26") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D19").Value = ""
        ActiveSheet.Range("B19").Value = "X"
        End If
        If Sheets("Checklist").Range("AA26") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D20").Value = ""
        ActiveSheet.Range("B20").Value = "X"
        End If
        If Sheets("Checklist").Range("AC26") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D21").Value = ""
        ActiveSheet.Range("B21").Value = "X"
        End If
        If Sheets("Checklist").Range("AE26") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D22").Value = ""
        ActiveSheet.Range("B22").Value = "X"
        End If
        If Sheets("Checklist").Range("AG26") = "X" Then
'-------------------------------------^^^
        ActiveSheet.Range("D23").Value = ""
        ActiveSheet.Range("B23").Value = "X"
        End If
'end filling in checkboxes
'begin filling in descriptions
    ActiveSheet.Range("G9").Value = Sheets("Checklist").Range("F26")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G10").Value = Sheets("Checklist").Range("H26")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G11").Value = Sheets("Checklist").Range("J26")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G12").Value = Sheets("Checklist").Range("L26")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G13").Value = Sheets("Checklist").Range("N26")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G14").Value = Sheets("Checklist").Range("P26")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G15").Value = Sheets("Checklist").Range("R26")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G16").Value = Sheets("Checklist").Range("T26")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G17").Value = Sheets("Checklist").Range("V26")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G18").Value = Sheets("Checklist").Range("X26")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G19").Value = Sheets("Checklist").Range("Z26")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G20").Value = Sheets("Checklist").Range("AB26")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G21").Value = Sheets("Checklist").Range("AD26")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G22").Value = Sheets("Checklist").Range("AF26")
'--------------------------------------------------------------^^^^
    ActiveSheet.Range("G23").Value = Sheets("Checklist").Range("AH26")
'--------------------------------------------------------------^^^^
'end filling in descriptions
'PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS-PARAMATERS
'Parameter: If there is no discription and the scenario is applicable color description box red.
If ActiveSheet.Range("G9").Value = "" Then
    If ActiveSheet.Range("B9").Value = "X" Then
    ActiveSheet.Range("G9").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C9").Value = "X" Then
    ActiveSheet.Range("G9").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G10").Value = "" Then
    If ActiveSheet.Range("B10").Value = "X" Then
    ActiveSheet.Range("G10").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C10").Value = "X" Then
    ActiveSheet.Range("G10").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G11").Value = "" Then
    If ActiveSheet.Range("B11").Value = "X" Then
    ActiveSheet.Range("G11").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C11").Value = "X" Then
    ActiveSheet.Range("G11").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G12").Value = "" Then
    If ActiveSheet.Range("B12").Value = "X" Then
    ActiveSheet.Range("G12").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C12").Value = "X" Then
    ActiveSheet.Range("G12").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G13").Value = "" Then
    If ActiveSheet.Range("B13").Value = "X" Then
    ActiveSheet.Range("G13").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C13").Value = "X" Then
    ActiveSheet.Range("G13").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G14").Value = "" Then
    If ActiveSheet.Range("B14").Value = "X" Then
    ActiveSheet.Range("G14").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C14").Value = "X" Then
    ActiveSheet.Range("G14").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G15").Value = "" Then
    If ActiveSheet.Range("B15").Value = "X" Then
    ActiveSheet.Range("G15").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C15").Value = "X" Then
    ActiveSheet.Range("G15").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G16").Value = "" Then
    If ActiveSheet.Range("B16").Value = "X" Then
    ActiveSheet.Range("G16").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C16").Value = "X" Then
    ActiveSheet.Range("G16").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G17").Value = "" Then
    If ActiveSheet.Range("B17").Value = "X" Then
    ActiveSheet.Range("G17").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C17").Value = "X" Then
    ActiveSheet.Range("G17").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G18").Value = "" Then
    If ActiveSheet.Range("B18").Value = "X" Then
    ActiveSheet.Range("G18").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C18").Value = "X" Then
    ActiveSheet.Range("G18").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G19").Value = "" Then
    If ActiveSheet.Range("B19").Value = "X" Then
    ActiveSheet.Range("G19").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C19").Value = "X" Then
    ActiveSheet.Range("G19").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G20").Value = "" Then
    If ActiveSheet.Range("B20").Value = "X" Then
    ActiveSheet.Range("G20").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C20").Value = "X" Then
    ActiveSheet.Range("G20").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G21").Value = "" Then
    If ActiveSheet.Range("B21").Value = "X" Then
    ActiveSheet.Range("G21").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C21").Value = "X" Then
    ActiveSheet.Range("G21").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G22").Value = "" Then
    If ActiveSheet.Range("B22").Value = "X" Then
    ActiveSheet.Range("G22").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C22").Value = "X" Then
    ActiveSheet.Range("G22").Interior.ColorIndex = 3
    End If
End If
If ActiveSheet.Range("G23").Value = "" Then
    If ActiveSheet.Range("B23").Value = "X" Then
    ActiveSheet.Range("G23").Interior.ColorIndex = 3
    ElseIf ActiveSheet.Range("C23").Value = "X" Then
    ActiveSheet.Range("G23").Interior.ColorIndex = 3
    End If
End If
'Parameter: If there is a description on a scenario that is listed as not applicable, color N/A box red.
If Not ActiveSheet.Range("G9").Value = "" Then
    If ActiveSheet.Range("D9").Value = "X" Then
    ActiveSheet.Range("D9").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G10").Value = "" Then
    If ActiveSheet.Range("D10").Value = "X" Then
    ActiveSheet.Range("D10").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G11").Value = "" Then
    If ActiveSheet.Range("D11").Value = "X" Then
    ActiveSheet.Range("D11").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G12").Value = "" Then
    If ActiveSheet.Range("D12").Value = "X" Then
    ActiveSheet.Range("D12").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G13").Value = "" Then
    If ActiveSheet.Range("D13").Value = "X" Then
    ActiveSheet.Range("D13").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G14").Value = "" Then
    If ActiveSheet.Range("D14").Value = "X" Then
    ActiveSheet.Range("D14").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G15").Value = "" Then
    If ActiveSheet.Range("D15").Value = "X" Then
    ActiveSheet.Range("D15").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G16").Value = "" Then
    If ActiveSheet.Range("D16").Value = "X" Then
    ActiveSheet.Range("D16").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G17").Value = "" Then
    If ActiveSheet.Range("D17").Value = "X" Then
    ActiveSheet.Range("D17").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G18").Value = "" Then
    If ActiveSheet.Range("D18").Value = "X" Then
    ActiveSheet.Range("D18").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G19").Value = "" Then
    If ActiveSheet.Range("D19").Value = "X" Then
    ActiveSheet.Range("D19").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G20").Value = "" Then
    If ActiveSheet.Range("D20").Value = "X" Then
    ActiveSheet.Range("D20").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G21").Value = "" Then
    If ActiveSheet.Range("D21").Value = "X" Then
    ActiveSheet.Range("D21").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G22").Value = "" Then
    If ActiveSheet.Range("D22").Value = "X" Then
    ActiveSheet.Range("D22").Interior.ColorIndex = 3
    End If
End If
If Not ActiveSheet.Range("G23").Value = "" Then
    If ActiveSheet.Range("D23").Value = "X" Then
    ActiveSheet.Range("D23").Interior.ColorIndex = 3
    End If
End If
'end PARAMETERS section
End If
End Sub
 
Upvote 0
I still have the problem that the macro only adds 10 new sheets before it stops. It should be able to add 12 new sheets since I have 12 subs that should create a single sheet. I have changed this section at least 4 different times, trying to fix this issue.
Code: 
    If Err Then MsgBox "Invalid name!", vbCritical
    On Error GoTo 0 
   Worksheets.Add after:=Worksheets(Worksheets.Count) 
   Worksheets(Worksheets.Count).Name = "MS77" 
   If Err Then MsgBox "Invalid name!", vbCritical 
   On Error GoTo
 
Upvote 0
once it fails what happens if try to manually add a sheet? Any messages that might give a clue?
 
Upvote 0
Figured it out on my own!!! The issue was somewhere between sub device10 () and sub device11 () my activesheet was not "Checklist." This resulted in the If-then statement at the very beginning of subsequent subs to read false and be skipped over. Thanks so much for all your help!
 
Upvote 0
You must log in or register to reply here.

Similar threads

SlinkRN
  • Solved
Handling Multiple Errors within one loop
Replies
7
Views
315
SlinkRN
SlinkRN
B
  • Solved
text vs numbers copying a cell
Replies
4
Views
174
bhsoundman
B
I
  • Solved
Listbox to show dd/mm/yyyy & not mm/dd/yyyy
2
Replies
13
Views
331
Alex Blakenburg
A
M
  • Question Question
VBA error not making sense
2
Replies
10
Views
277
Skyybot
Skyybot
K
  • Question Question
Using Vba to add an Calendar event in my Google calendar
Replies
5
Views
398
Krassluca
K

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top