These lines are already coded€¦
Dim srcProgramSummaryWs As Worksheet
Set srcProgramSummaryWs = Sheets("ProgramSummary")

When AA1 is selected I want to move from the current Worksheet to the
srcProgramSummaryWs Worksheet€¦ How so I do this?

If Target.Address = "$AA$1" Then
€˜ needed instruction?
End If