Streamlining Code

I have this code which repeats itself to accomodate different ranges - about 20 when im finished.
Is there a better way of doing it using maybe Case statements?

thanks
Sally

If Not Intersect(Target, Range("dType")) Is Nothing Then
Sheets("variables").Range("qType").Value = Target.Value
Range("A1").Select

ElseIf Not Intersect(Target, Range("dDate")) Is Nothing Then
Sheets("variables").Range("qDate").Value = Target.Value
Range("A1").Select

ElseIf Not Intersect(Target, Range("dClass")) Is Nothing Then
Sheets("variables").Range("qClass").Value = Target.Value
Range("A1").Select


End If