Sub ExtractData()
Dim obj
For Each obj In ActiveSheet.OLEObjects
If obj.progID = "Forms.HTML:TextArea.1" Then
me.Range("A1").Value = obj.Object.Value
''' change the Range as required
End If
Next o
End Sub
No comments:
Post a Comment
Your feedback is always appreciated. I will try to reply to your queries as soon as time allows.Please don't spam,spam comments will be deleted upon reviews.