Before Save Macro

[guarrac1no]

In My sheet I would like to check to make sure col 15 is true before going through the process of adding the contents of each row from col 6 - 10 to column 5. (Col 5 could already contain values)

This is my code:

Private Sub Workbook_ThisWorkbook(ByVal SaveAsUI As Boolean, cancel As Boolean)
    BeginRow = 8
    EndRow = 87
    ChkCol = 15
    BeginCol = 6
    EndCol = 10

    For RowCnt = BeginRow To EndRow
        If Cells(RowCnt, ChkCol).Value = True Then
         For RowCnt = BeginRow To EndRow
            Cells(RowCnt, 5).Value = Cells(RowCnt, 5).Value + Cells(RowCnt, ColCnt).Value
            Next ColCnt
        End If
    Next RowCnt
End Sub

Any suggestions?

 

[guarrac1no]

Now I am getting Runtime Error '9'
subscript out of range

highlighted:
Set wksSheet5 = ThisWorkbook.Worksheets("Sheet5")

I copy and Pasted your code over mine in "ThisWorkbook"

I REALLY appreciate all this help

 

[GTO]

Now I am getting Runtime Error '9'
subscript out of range

highlighted:
Set wksSheet5 = ThisWorkbook.Worksheets("Sheet5")

I copy and Pasted your code over mine in "ThisWorkbook"

I REALLY appreciate all this help

My guess would be that you changed the name of the sheet from "Sheet5" (on the tab) to some other name.

If that is not it, please click on the Go Advanced button and use the little pound sign button at the top of the msg window to tack in code tags. Then paste all the code from ThisWorkbook.

Mark

 

[guarrac1no]

Mark

You are right, I changed it to Tracking Master

I tried all of the following to no avail:

Set wksSheet5 = ThisWorkbook.Worksheets("Tracking Master")
Set wksSheet5 = ThisWorkbook.Worksheets("Sheet5(Tracking Master)")
Set wksSheet5 = ThisWorkbook.Worksheets("Sheet5")

Obviously the sheet name is Tracking Master

Mark