VBA - Text to Speech

[mem_dawg]

Hi All,

My version is 2007.

I'm getting news headers from a web site using the "import data from a web page"

Cell A1 is the header of Number 1 news in that source web site.

What I want is; Excel to read it to me when this Cell A1 updates itself and changes.

I've seen a similar thread here and tried this VBA:

***********************************************

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range, c As Range, ir As Range
Set r = Range("A1")
Set ir = Application.Intersect(Target, r)
If ir Is Nothing Then Exit Sub
For Each c In Range("A1")
c.Speak
Next c
End Sub

***********************************************

I've saved the file as Excel Macro-Enabled Workbook and enabled macros but not doing anything.. Do I have to do anything else like compiling or activating the macro or something else? Or is the code wrong? As you can see I'm not familiar with VBA or Macros..

Any idea??

Thanks in advance..

cheers,
mem

 

[wigi]

Hello

Welcome to MrExcel.

This works fine for me:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then Target.Speak
End Sub

So you can indeed cut down on your codes used.

Does this work if you manually type a word in cell A1? (for instance: type the word Manchester)

Did you put the code in the correct sheet code module?

 

[mem_dawg]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then Target.Speak
End Sub

Hi Wigi,

Thanks for the reply, now at least it reads it when i change the cell content manually, but it doesn't read it if the cell changes itself automatically with Web Import function.

 

[VoG]

This appears to be continued here http://www.mrexcel.com/forum/showthread.php?t=366486

Please do not post the same question multiple times. All clarifications, follow-ups, and bumps should be posted back to the original thread. Per forum rules, posts of a duplicate nature will be locked or deleted (rule #9 here: http://www.mrexcel.com/forum/showthread.php?t=99490).