VBA code used in this Macro is as below:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'VBA code: Run macro when cell is clicked
''This code needs to be added in particular Sheet where its intended to execute
' OEACLASSES.IN
'
If Selection.Count = 1 Then
If Not Intersect(Target, Range("b3")) Is Nothing Then
Sheets("news").Range("D3:M18").Select
ActiveCell.FormulaR1C1 = "CLICK ON BELOW NEWS CHANNELS FOR THE NEWS!"
End If
End Sub