Run macro based on text in a cell

[CookieMonster76]

Hi

I have a report which summaries a set of data. i would like to enable the end user to be able to click a cell (Say cell P1), and it then show the data behind it. The first step of which I have the following:

With Sheets("Full transaction List")
With .Range("A1:I" & Range("A" & Rows.Count).End(xlUp).Row)
.AutoFilter Field:=8, Criteria1:="<>Management Charge-Subsidiaries"
.EntireRow.Delete
End With

The text in red is what is in Cell A1, so can I substitute this with a formula (Since the text in Cell A1 may be different depending on the end user.)

Thanks

Paul