Loop Through Sheets based on condition

[shennricks]

Currently I have a formula that adds up all of the same cell on multiple sheets.

Eg:

=SUM('Sheet1:Sheet12'!K3)


What I would Ideally like to do is have corresponding columns on the front page where the user can select the sheets that they would like included in the summed data.

So there will be a column with the sheet names and then a column where the user can "x" next to it indicating it should be included in the data.

Is there an easy way to update the equation so it will loop through the range of sheets and check the condition based on a corresponding cell value on the first sheet?

 

[ZMyrrh]

Public Sub SheetsSum()

Dim Sum1 As Long: Sum1 = 0
Dim i As Integer
Dim RangeOnOtherSheetsToSum As String: Let RangeOnOtherSheetsToSum = "A1"
Dim StartingXPosition As String: Let StartingXPosition = "B2"
Dim PlaceSumResult As String: Let PlaceSumResult = "D3"
Dim ResultsWorksheet As String: Let ResultsWorksheet = "Sheet1"

Application.ScreenUpdating = False

    For i = Range(StartingXPosition).Row To Sheets.count
    
        If Worksheets(ResultsWorksheet).Cells(i, Range(StartingXPosition).Column).Value = "x" Then
        
            Sum1 = Sum1 + Sheets(i).Range(RangeOnOtherSheetsToSum).Value
            
        End If
        
    Next i

Worksheets(ResultsWorksheet).Range(PlaceSumResult).Value = Sum1

Application.ScreenUpdating = True


End Sub

Make sure to change the variables that fit your own spreadsheet.