You changed the format of the Output worksheet in the newer versions of KM, but you didn't change the UpgradeSAVE_RM code to match these changes. Here are the changes you need to correctly save the code blocks. You could also just drop these code blocks because RM never uses them. Without these changes, the file created by this macro will not load into RM.
Thanks,
Chris
Code: Select all
Dim cell As Range
'device upgrade code
Print #fNum, ""
Print #fNum, "[Device Upgrade Code]"
For Each cell In ThisWorkbook.Worksheets("Output").Range("A6:A10")
If cell.Value <> "" Then Print #fNum, cell.Value
Next cell
'protocol code
Print #fNum, ""
Print #fNum, "[Protocol Code]"
For Each cell In ThisWorkbook.Worksheets("Output").Range("A12:A14")
If cell.Value <> "" Then Print #fNum, cell.Value
Next cell
'key move code
Print #fNum, ""
Print #fNum, "[Key Move Code]"
For Each cell In ThisWorkbook.Worksheets("Output").Range("A16:A18")
If cell.Value <> "" Then Print #fNum, cell.Value
Next cell