.xls

必ず数式を入れたセルと同じ行の1列目を参照する場合など、引数を入れるのが面倒な時に使える。

Function Youbi() As Integer
　'曜日を算出する
　Youbi = Weekday(Cells(Application.ThisCell.Row, 1), vbSunday)
End Function

A1セルに「2009/07/16」と入力されていて、
1行目のどの列のセルでもいいので「=Youbi()」と入力すると、
「5」という答えが返ってくる（日曜始まりなので5は木曜日）。

Application.ThisCell.Address '数式を入れたセル番地
Application.ThisCell.Column '数式を入れた列番号
など。