Excel - Select Switch Command keeps running

[wuuhaahaa]

Sponsored Links

Hey guys,
I encountered some problems with select-case. My main situation now is that the case will not stop running. Is it because there are too many tasks in one case? The macro just keeps copying+selecting sheet+pasting. Help is really appreciated. Thanks

[wuuhaahaa]

Here is part of my code.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'Cell G2
Select Case Range("G2").Value

Case 1

Range("A2:F2").Copy
Sheets("There").Select
ActiveSheet.Range("A2:F2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Case 2

Range("A2:F2").Copy
Sheets("There").Select
ActiveSheet.Range("A3:F3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Case 3

Range("A2:F2").Copy
Range("A5:F5").Select
ActiveSheet.Paste

End Select

'Cell G3
Select Case Range("G3").Value

Case 1

Range("A3:F3").Copy
Sheets("There").Select
ActiveSheet.Range("A2:F2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Case 2

Range("A3:F3").Copy
Sheets("There").Select
ActiveSheet.Range("A3:F3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Case 3

Range("A3:F3").Copy
Sheets("There").Select
ActiveSheet.Range("A4:F4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

End Select

End Sub