コードをコピー貼り付け後にリストにマクロが表示されない

Question

私はVBAを全く新しくしているため、私が何をしているのかわからない... 以下は私の問題と問題のコードの説明です。

：、私は明らかにこれでトリックを行うコードを発見した今

値として貼り付け、任意のセルを選択し、新しいシートを選択し コピークリックされたセル：私はもともとやりたいこと

このでした

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
    If Not Intersect(Target, Columns("A")) Is Nothing Then 
    Cancel = True 
    If Target.Row > 1 And Len(Target.Value) Then Worksheets("S11").Range("C2").Value = Target.Value 
    End If 
End Sub 

私は「明らかに」私はそれをテストすることができないと言う。ここでの問題は、次のとおりです。

1. Excelマクロ有効ブック
2. はALTのQをクリックしたとして、私は、ブックを保存した - 私は、ALT F8は、それを実行するために戻って私のワークブックへ
3. に行く - しかし、何もありません...空白....

私は何が欠けていますか？

Answer 1

モジュールには、使用するマクロがあります。

public sub mymacro(r as excel.range) 
If Not Intersect(r, Columns("A")) Is Nothing Then   
    If r.Row > 1 And Len(r.Value) Then Worksheets("S11").Range("C2").Value= r.Value 
    End If 
end sub 

public sub wbtest() 
    mymacro activecell 
end sub 

ので

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
    If Not Intersect(Target, Columns("A")) Is Nothing then 
     mymacro target 
    end if 
end sub