public funktion/sub til at finde første ledige celle i kolonne

Hi,

Jeg har en sub der finder første ledige celle i en kolonne:

Public Sub firstEmptyCell()
    ActiveCell.End(xlDown).Select
    ActiveCell.Offset(1, 0).Select
End Sub

Når den kaldes fra en anden sub kræves det naturligvis at man befinder sig på det rigtige ark i den rigtige kolonne. Jeg tænkte på om man ikke kunne lave en funktion, så man kan bestemme arket og kolonnen med det samme. Noget a la:

Public Function firstEmptyCell(MySheet As String, _
  MyCol As String) As ?
    Sheets(MySheet).Range(MyCol & "1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Select
End Function

og så kalde funktionen i en sub med noget a la:

Sub test()
    FindEmpty("Spam List", "B").Select
End Sub

...eller kan det laves meget smartere?

/Lars