You're right, I totally failed to mention that. I apologize...and I also
bow down before you and your Excel mastery. Thank you!!!!!

-Brian

"Bob Phillips" wrote in message
...
You never mentioned there could be multiples per month!

Function DynFilename(Business, LetterId) As String
Dim cell As Range
Dim colMonths As Collection
Dim itm

Set colMonths = New Collection
DynFilename = Business & "_" & LetterId & "_"
For Each cell In ActiveSheet.Range("Businesses")
If cell.Value = Business And cell.Offset(0, 1).Value = LetterId
Then
On Error Resume Next
colMonths.Add Format(cell.Offset(0, 2).Value, "mmm"), _
Format(cell.Offset(0, 2).Value, "mmm")
On Error GoTo 0
End If
Next cell

For Each itm In colMonths
DynFilename = DynFilename & itm
Next itm
End Function


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)