SJ McAbney
08-13-2004, 04:23 AM
Done this in Excel and was wondering if anybody has done anything even lazier to save a few keystrokes?
Private Sub OffSet(x As Integer, y As Integer)
ActiveCell.OffSet(x, y).Select
End Sub
Private Function OffVal(x As Integer, y As Integer) As Variant
OffVal = ActiveCell.OffSet(x, y).Value
End Function
:p
Private Sub OffSet(x As Integer, y As Integer)
ActiveCell.OffSet(x, y).Select
End Sub
Private Function OffVal(x As Integer, y As Integer) As Variant
OffVal = ActiveCell.OffSet(x, y).Value
End Function
:p