I have the following code so that when a cell is selected, it copies all the
cells/formulas from the template worksheet to the active worksheet and
€œoverwrite€� the target cells.

Now, how can I insert a €œPop Up Message€� to ask €œAre you sure?€� and proceed
if Yes, exit if No?

(I just want to make sure if the cell is clicked by accident then the active
worksheet data is not lost.)

------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Address = "$K$1" Then
ActiveSheet.Unprotect
ActiveSheet.Range("N3:Q242").Formula =
Sheets("ProgramSummaryTemplate").Range("N3:Q242"). Formula
ActiveSheet.Protect
Range("N3").Select
End If

Cancel = True
End Sub
------------------------