VBA macro-move to cell underneath the button

Wow, the second solution works.Superb.Thanks a ton.

This didnt work for me....
"Unable to get the Buttons property of the Worksheet class"

What I need to do is increment the cell directly to the left of the cell where the button is located by 1. So I have a button in say cell H5, and I need the macro to increment G5 by 1 when the button is pressed. There are several buttons down the page in the H column. Each button calls the exact same Macro but has to increment the previous column by one depending on which row I click the button.

Liam, then just decrease the colum by one (offset(

Dim r As Range
Set r = ActiveSheet.Buttons(Application.Caller).TopLeftCell
Range(Cells(r.Row, r.Column), Cells(r.Row, r.Column)).Offset(0, -1).Select

Hi there

The same run-time error occurs
"Unable to get the Buttons property of the Worksheet class"

This is my Macro:


Sub Knockout()
'
' Knockout Macro
' Macro recorded 02/08/2010 by Admin
'
Dim r As Range
Set r = ActiveSheet.Buttons(Application.Caller).TopLeftCell
Range(Cells(r.Row, r.Column), Cells(r.Row, r.Column)).Offset(0, -1).Select

ActiveCell.Value = ActiveCell.Value + 1
'
End Sub

Is this wrong?