Selected Answer
Further to the dicussion, here's a revised VBA solution (attached file), c.f. file posted 11 Nov (and revised answer text is in italics):
In sheet 1, there are three cells (yellow filled) to complete, as per your example. Press Ctrl + Shift + J and the code should run and give you an output message (blank if no divisions are found). It first tries the value in the worksheet, sets a flag if values are found (then it drops out) or tries up to 4 lower values seeking matches. The spreadsheet is sent out with a narrow min-max range to show this (Value 73, range 20 -23) but it should work with other ranges.
The code is commented to show roughly how it works (again using MOD and IF operators). I've made no checks on the value of the parameters. It automatically reduces the Value up to 4 times (in a Do/ Loop Until) if no divisions are found. You need to do that sanity check on values manually for now.
Hope this helps.
Sub Find_Repeats()
'
' Find_Repeats Macro
'
' Keyboard Shortcut: Ctrl+Shift+J
'
Dim myVal As Long, RngMin As Long, RngMax As Long
Dim myMess As String, myCount As Integer, Falg As Boolean
'set initial values from spreadsheet
myVal = Sheet1.Cells(2, 1)
RngMin = Sheet1.Cells(2, 2)
RngMax = Sheet1.Cells(2, 3)
Do ' repeat the following until the Loop test is met
myMess = myMess & "In-range whole divisions found for " & myVal & " are:" & Chr(13) 'set up the message for this myVal
For myCount = 2 To RngMax 'start from 2 and run up to upper end of range
If (myVal Mod myCount) = 0 And myVal / myCount >= RngMin And myVal / myCount <= RngMax Then 'if other value is a factor of Value and in range
myMess = myMess + Str(myCount) & " x " & Str(myVal / myCount) & Chr(13) 'add this multiplication to output string
Flag = True 'set Flag to show match(es) found
End If
Next myCount
myVal = myVal - 1 ' Reduce myVal by 1 before doing next loop
Loop Until Flag = True Or myVal <= Sheet1.Cells(2, 1) - 5 'test if a match was found or 5 attempts have been made
MsgBox myMess
End Sub
