Software Applications Programming Errors and solutions.

If you want to use switch case in Excel micro then you can see following example. Its mentioned clearly how to use switch  as per value of cell. Sub configs(ByVal Target As Range) Dim Indexof As Integer Dim strT As String Indexof = InStrRev(Target.Address, "$") strT = Mid(Target.Address, 1, Indexof) Select Case strT Case "$D$" Call drange(Target) 'drange --> generate Crop Id [D],Crop Variety DropDown [E] from Crop Name [C] Case "$E$" Call erange(Target) 'erange --> generate Crop Variety Id [F] from Crop Variety Name [E] Case "$K$" Call krange(Target) 'krange --> generate District Id [L] ,Taluka DropDown [M] from District Name [K] Case "$M$" Call mrange(Target) 'mrange --> generate Taluka Id [N], Village DropDown [O] from Taluka Name [M] Case "$O$" Call orange(Target) 'orange --> generate Village Id [P] from Village Name [O] End Select End