Hello.  I am trying to make a simple function that will automatically fill in
data if a few Cells are not blank.  I'd very much like to do this with a
function but if need be I'll struggle with working with Sub Code.  I am
trying to keep this very readable in Microsoft Excel and I'd really only like
to pass in two variables if it is posssable.  My code thus far (which doesn't
work because I am guessing Application.Indirect doesn't work) is:

Function AutoFill(RowNum, TrueFill)
   If (Application.Indirect("Y" & RowNum)) <> "" Then
       AutoFill = TrueFill
   Else
       If (Application.indirect("B" & RowNum) = "") And
(Application.indirect("B" & (RowNum + 1)) = "") Then
           AutoFill = "---"
       Else
           AutoFill = ""
       End If
   End If
End Function

Where RowNum is the Row Number without the column letter and TrueFill is
what will be filled into the cell if the certain cells are not blank.  I need
the program to check if columns B and Y are filled with something on that row
as well as Column B of the next row.  If any of you know of some code that
will help me do this I will be very greatful.  Thank you for your time.

Mark