If Cell contains certain text of pivot table then Show Details on Adjacent Column

Hi Guys

I am new to macro's and VBA so bear with me if my explanation isn't great.

I am trying to write a macro where it searches column D for a particular text eg 'Sales Action' and if found to show the selection from the adjacent cell in Column E. This will open up a new workbook, I have a macro where this was done manually to a cell as an example:

Sub Tabs()
'
' Tabs Macro
'

'
    Range("E5").Select
    Selection.ShowDetail = True
    Sheets("Sheet2").Select
    Sheets("Sheet2").Name = "LOR"
    
End Sub

Hope that makes sense.

Kind Regards
Ross