Excellent - Resize(1, 5).Value sets all the cells at once! I had expected it
would only set the first cell. Learn something new every day... :)


"Tom Ogilvy" wrote in message
...
Public Sub Button_Click()
With ActiveSheet.Buttons(Application.Caller)
With Cells(.TopLeftCell.Row, .BottomRightCell.Column + 1)
.Resize(1,5).Value = "X"
End With
End With
End Sub

Was more what I had in mind.

--
Regards,
Tom Ogilvy

Rob van Gelder wrote in message
...
Public Sub Button_Click()
With ActiveSheet.Buttons(Application.Caller)
With Cells(.TopLeftCell.Row, .BottomRightCell.Column + 1)
.Value = "X"
.AutoFill .Resize(1, 5), xlFillCopy
End With
End With
End Sub


"wesandem " wrote in message
...
Thanks for the help guys - looks like it's working perfectly now. One
more thing I should have asked earlier - what would I change if I want
this action to apply to not just the adjacent cell but to the next
five
cells?


---
Message posted from http://www.ExcelForum.com/