Quick Data Entry

[jeff]

Hi,
Try this macro (right click on tab name, goto view code,
paste.) Change "c:c" to whatever column you need, also
adjust the FEOMC & FuelElecFoodMortCar . (latter must be 4
characters)

jeff

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Me.Range("c:c")) Is Nothing Then
Exit Sub
Application.EnableEvents = False
Target = Mid("FuelElecFoodMortCar ", (InStr(1, "FEOMC",
UCase(Left(Target, 1))) - 1) * 4 + 1, 4)
Application.EnableEvents = True
End Sub

-----Original Message-----
I've downloaded the Checkbook Register template from

Microsoft. I'm trying to customize the template with a
column coded for types of expenses (e.g. Fuel, Groceries,
Utilities, etc.)

I will use a pivot table to separate all of these out to

see where money is going each month.

I'd like a way to enter a letter in the expense code

column that would generate the description in the code
column. For example, I'd like to enter the letter F in
the Code column and have it generate the word "Fuel" --
so when I run my pivot tables the labels are easier to
read (Fuel would be more descriptive than just "F".

I've seen the Validation where I can select from a list -

- but since I'll be doing data entry I would rather type
the letter vs. having to choose from a list.