Excel VBA で別シートの最終行の値を取得する

ワークシートの”Sheet2″ の値の存在する最終行のValue を取得する方法。
一度、シートの最終行を取得し、xlUpで戻るイメージ。

[vb]
Sub getLastRowValue()
Dim val As String

val = Worksheets("Sheet2").Range("E" & Rows.Count).End(xlUp).Value

MsgBox val

End Sub
[/vb]