Solved: Calculate Number of pages

My current code feels a little awkward.... I need to put three funds per page into a report. Is there a simpler way to do this?

Code:

---

    'calculate pages
    If intFunds < 4 Then
  'One page
  intPages = 1
  Else
        '  Multiple Pages
  If (intFunds Mod 3) = 0 Then
      intPages = Int(intFunds / 3)
      Else
      intPages = Int(intFunds / 3) + 1
  End If
    End If

---

try just one line:

Code:

---

intpages = Application.Ceiling(intfunds / 3, 1)

---

Quote:

---

Originally Posted by p45cal

try just one line:

---

Ahah! I should have thought to check the Worksheet Functions.

Thank you very much, that is perfect.