Try this...
- Open Excel
- Press Alt+F11 to open the Visual Basic Editor
- In the Project Explorer (on the left), find your workbook and expand it
- Right click "Microsoft Excel Objects" and choose Insert -> Module
- Paste the following in the code pane that opens up:
Code:
Option Explicit
Sub FindNextLetter()
Dim rngToSearch As Range
Dim lLetter As Long
Set rngToSearch = Range(ActiveCell.Address & ":" & ActiveCell.End(xlDown).Address)
lLetter = Columns(Left(ActiveCell, 1)).Column + 64
Do Until lLetter = 90
lLetter = lLetter + 1
On Error Resume Next
rngToSearch.Find( _
What:=Chr(lLetter), _
After:=ActiveCell, _
LookIn:=xlFormulas, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False).Activate
If Err.Number <> 0 Then
Err.Clear
Else
Exit Do
End If
Loop
If lLetter = 90 Then MsgBox ("Sorry, there are no higher letters in your list!")
End Sub
- Close the Visual Basic editor
- Press Alt+F8
- Make sure "FindNextLetter" is highlighted
- Click Options
- In the Shortcut key field, enter a Capital J
- Click OK
Now select any cell in your column of letters and press CTRL+SHFT+J. You should be taken to the next highest letter.
You'll need to save your workbook in a Macro Enabled format if you're using Excel 2007 or higher (an xlsm file)
If you need to use this on several workbooks, we'll need to go through some slightly different steps to install it.
Hope it helps,
Bookmarks