Range should also accept Sheet object

[fzumstein]

Currently it only accepts the Sheet Name or Index. So I should be able to do

Range('Sheet1', 'A1').value
Range(1, 'A1').value
Range(Sheet(1), 'A1').value