Problems w\ Macro to connect Worksheet object to TextBox

[iamito]

Hi

I want to create an interactive slide in Powerpoint that connects a
worksheet object to a Textbox, but I can't seem to do it.

This is what I've written so far:

Private Sub TextBox1_Change()

Dim num As Double

num = TextBox1.Value

If IsNumeric(num) Then
Excel.Application.Activate.Sheet(1).Range("C8").Value = num
Else
MsgBox ("Please enter numbers only")
End If


End Sub



Any help would be greatly appreciated.

Miguel