static uint32 random
  random ^= random << 1;
  random ^= random >> 3;
  random ^= random << 10;

Sub MakeSummary()

Const sSUMMARY_TAG As String = "Summary"
Const sQUESTION_DELIMITER As String = " "
Const sPRODUCT_RANGE As String = "A8"
Const sPRODUCT_DELIMITER As String = "..."
Const sSTART_RANGE As String = "B10"

Dim wshLoop As Worksheet
Dim sQuestion As String
Dim asSheetName() As String
Dim asProduct() As String
Dim bFirstPass As Boolean
Dim rngThisQ As Range
Dim sThisProduct As String
Dim bSheetMatched As Boolean
Dim lSheetLoop As Long
Dim wshSource As Worksheet
Dim sStatement As String
Dim rngFindStat As Range

bFirstPass = True
For Each wshLoop In ActiveWorkbook.Sheets
  If bFirstPass Then
    ReDim asSheetName(1 To 1)
    ReDim asProduct(1 To 1)
    bFirstPass = False
  Else
    ReDim Preserve asSheetName(1 To UBound(asSheetName) + 1)
    ReDim Preserve asProduct(1 To UBound(asProduct) + 1)
  End If
  asSheetName(UBound(asSheetName)) = wshLoop.Name
  If InStr(wshLoop.Range(sPRODUCT_RANGE).Value, sPRODUCT_DELIMITER) = 0 Then
    asProduct(UBound(asProduct)) = "NULL"
  Else
    asProduct(UBound(asProduct)) = Mid(wshLoop.Range(sPRODUCT_RANGE), InStr(wshLoop.Range(sPRODUCT_RANGE), sPRODUCT_DELIMITER) + Len(sPRODUCT_DELIMITER))
    'MsgBox asProduct(UBound(asProduct))
  End If
  If InStr(wshLoop.Name, sSUMMARY_TAG) > 0 Then
    sQuestion = Left(wshLoop.Name, InStr(wshLoop.Name, sQUESTION_DELIMITER))
    If sQuestion <> "Q11" Then
      Set rngThisQ = wshLoop.Range(sSTART_RANGE)
      While rngThisQ.Row <= wshLoop.Cells(wshLoop.Rows.Count, rngThisQ.Column).End(xlUp).Row
        lSheetLoop = 1
        bSheetMatched = False
        While lSheetLoop <= UBound(asSheetName) And Not (bSheetMatched)
          If Left(asSheetName(lSheetLoop), InStr(wshLoop.Name, " ") - 1) = Left(wshLoop.Name, InStr(wshLoop.Name, " ") - 1) And InStr(asProduct(lSheetLoop), rngThisQ.Value) > 0 Then
            bSheetMatched = True
          Else
            lSheetLoop = lSheetLoop + 1
          End If
        Wend
      
        If Not bSheetMatched Then
          MsgBox rngThisQ.Value & " could not be found"
        Else
          'MsgBox ActiveWorkbook.Sheets(lSheetLoop).Name
          Set wshSource = ActiveWorkbook.Sheets(lSheetLoop)
          
        End If
      
      Set rngThisQ = rngThisQ.End(xlDown)
      
    Wend
  End If
Next wshLoop

End Sub

Debug.Print Int((4 / 3) * (355 / 113) * (2 * 2 * 2))

x=15*(2/3)

x=15*2/3

 x = (float)15 * (float)2/(float)3