Ok I understand with the exception of 2 things

Public Sub ViewPrjByMth()
Dim strField As String, pMonth As Date, amt
pMonth = DateValue("1-Mar-2019")
strField = "Army"
amt = PrjByMonth(strField, pMonth)
MsgBox amt & ", " & strField & ", " & pMonth
End Sub

This part "pMonth = DateValue("1-Mar-2019")" only searches for that one particular date, I need it to do all the dates

It's not filling in the table it only gives me a message of what it finds, I need it to fill in the tab "PrjByMth" with the information in the tabs FY2019 thru FY2013.

I don't need the message box.