Vba Code to make Excel Speak - Either or Or

[Cammandk]

I have a file which when it opens I want excel to say 2 different lines of text depending if my budget is Under or Over.

If Budget is Over - "D1" = 0 , if Budget is under "D1" = 1

So if D1=0 - then text in A1 is read
If D1 =1 - then text in A2 is read

Thanks
Camman.

 

[Luke M]

Put this code in the ThisWorkbook module of the VBE. Adjust as necessary.

Private Sub Workbook_Open()
Dim myCell As Range
Dim myMsg As String
'Where is the cell of interest?
With Worksheets("Sheet1")
    Set myCell = .Range("D1")
    
    'Check our criteria
    If myCell.Value = 0 Then
        myMsg = .Range("A1").Value
    ElseIf myCell.Value = 1 Then
        myMsg = .Range("A2").Value
    Else
        'Not sure if there are other options...
    End If
End With
Application.Speech.Speak myMsg
 
End Sub

 

[SirJB7]

@Luke M
Hi!
My workbooks are always uttering curses at me, should I check the language Excel version?
Regards!

 

[Cammandk]

Thanks Guys
This works
SOLVED