oXL is an Excel.application

Private Sub butt_SendSMS_Click(ByVal Ctrl As Office.CommandBarButton, _
canceldefault As Boolean)
On Error GoTo err_SendSMS_Click

MsgBox ActiveCell.Value
MsgBox oXL.Worksheets("Sheet1").Range("A1").Value


err_SendSMS_Click:
Debug.Print Err.Description
End Sub

"Ben Crinion" wrote in message
...
Hi

I have added a button onto a toolbar and now i want to be able to get the
data from the selected cells when the button is clicked.

I cant work out how to do this and any pointers in the right direction
would be greatly recieved.

Im using VB6 to create an AddIn not VBA.

Thanks
Ben Crinion