Q:

How to find cell value based on row and Column ID in excel VBA

Need a VBA Sub to find a cell value based on Row and Column ID.
In the example below I need to select the value where East and RT3 intersect which is 80.

    A   B   C   D   E
1   null    RT1 RT2 RT3 RT4
2   North   31  40  78  11
3   South   32  41  79  12
4   East    33  42  80  13
5   West    34  43  81  14

A:

Use similar to below not tested:
Function getcell(ct as string, rt as string) as range

    With activecell
        R = .columns("A").find(rt).row
        C = .rows("1").find(ct).Column
        'The below will escape the function if none where found
        If r = nothing or c = nothing then exit function
        Set getcell = .cells(r, c)
    End with

End function

