0679デフォルトの名無しさん (ワッチョイ cfb9-bqMz)
2017/12/23(土) 07:46:11.28ID:8SavP0Th0Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 Then Target.Value = "ここ"
End Sub
クリックした場所に入れるだけならSheet1モジュールにこれで済むけど、コルーチン処理が必要というなら分からん。
いずれにしてもActiveCellとかActiveSheetとかは避けて設計すべき。