I have this case and I want the rng to = the Target.value. I had put
in a message box to fire when case 6 happens and it was firing just
fine. It just seems to stop there and not fill rng with
target.value. Any help would be greatly appreciated.

Thanks,
Jay

Select Case Target.Column
Case 6
Dim Rws As Long
Rws = Sheet3.Range("A1").End(xlDown).Row + 1
Set rng = Sheet3.Cells(Rws, 1)
End Select

rng = Target.Value