【奖励50币】VBA函数中如何引用range变量的部分区域

请问VBA函数中如何引用range变量的部分区域。如下：

Function fff(a As Range)   ' 假设变量a是8行1列
fff = Application.WorksheetFunction.Max(a(1:6,1))   ' 想找出变量a前6行中的最大值，但这样写有问题，应该怎样写呀？
End Function

谢谢！

Function fff(a As Range) As Integer
   a_column = a.Column   ’取列号
   With a
        myrange = Range(.Cells(1, a_column), .Cells(6, a_column))   ’ 定义a的前6行，作为range
   End With
   fff = Application.WorksheetFunction.Max(myrange)

End Function

Function fff(a As Range) As Integer
   a_column = a.Column   ’取列号
   With a
        myrange = Range(.Cells(1, a_column), .Cells(6, a_column))   ’ 定义a的前6行，作为range
   End With
   fff = Application.WorksheetFunction.Max(myrange)

End Function