Find An Exact Match In A Column

I am having a slight VBA issue I need a little help with. I have created a catalog of books in Column A. As each new letter is reached there is a new heading. For example:

Cell A1 : A
Cell A2 : Book beginning with A #1
Cell A2 : Book beginning with A #2
Cell A3 : Book beginning with A #3
Cell A4: B
Cell A5 : Book beginning with B #1
Cell A6 : Book beginning with B #2
Cell A7 : Book beginning with B #3
Cell A8 : C
etc.

What I am looking to do is create a macro for each letter so that if I went to the "B" macro it would make the active cell A4. However the list of books will grow as my library does, so the macros have to find the letter rather than go to a predefined cell.

The code I have so far is (this example is for the letter B):

Sub B()
Columns("A:A").Select
Selection.Find(What:="B", After:=ActiveCell, _
LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False, _
SearchFormat:=False).Activate
ActiveCell.Select
End Sub

However this code finds the first time the letter B is used in a word, not the cell that only has the letter B in it. Also I need to make sure that if the active cell when the macro is run is below the letter that it needs to find that it will still find it. I'm not sure if my current code would do that or not.