I would do it this way. what is sumofmonths?
:confused:
Option Compare Database
Option Explicit
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
Dim i As Integer
Dim Mnth as Integer
i = 0
Mnth = Month(Date)
Select Case Mnth
Case 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8...