Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Sub hovor()
- Dim i As Integer
- For i = 5 To 7
- Cells(i, 3).Font.Color = vbWhite
- Application.Speech.Speak Cells(i, 3).Value
- Next i
- Range(Cells(7, 3), Cells(7, 3).End(xlUp)).Font.Color = vbBlack
- End Sub
Advertisement
