Target Question

Below is the Macro I have. Instead of doing a copy of entire row I want
just certain cells in that row (A-H). What would be the best way to
accomplish this.

Private Sub Worksheet_Change(ByVal Target As Range)
'
************************************************** **************************************
'
'
************************************************** **************************************
' monitors any change in the worksheet. If it is confined to a single
cell that resides
' in our target column, and has a specific value,
' it will copy the entire row to the next blank row in the target
tab
'
************************************************** **************************************


Dim varAnswer As String
Dim txtMessage As String

txtMessage = "Copy This!"

If Target.Count 1 Then Exit Sub ' more than one cell?
If Target.Column 24 Then Exit Sub ' is this my target row?

Select Case Target.Value ' if matches a case, do the action
required
Case "X" 'check for both upper and lower case
'confirmation step
varAnswer = MsgBox("Copy to Test Tab?", vbYesNo,
txtMessage)
If varAnswer = vbNo Then
Exit Sub
End If
'cut and paste to target tab
Target.EntireRow.Copy
Worksheets("Test").Range("A65536").End(xlUp).Offse t(1, 0)
Case "x" 'check for both upper and lower case
'confirmation step
varAnswer = MsgBox("Copy to Test Tab?", vbYesNo,
txtMessage)
If varAnswer = vbNo Then
Exit Sub
End If
'cut and paste cut and paste to target tab
Target.EntireRow.Copy
Worksheets("Test").Range("A65536").End(xlUp).Offse t(1, 0)
' future use
Case "Cancelled"
Target.EntireRow.Copy Worksheets("Cancelled
Actions").Range("A65536").End(xlUp).Offset(1, 0)
End Select
End Sub


--
jkrist46

One way

range("a" & target.row & ":h" & target.row).copy


--
mudraker
------------------------------------------------------------------------
mudraker's Profile: http://www.excelforum.com/member.php...fo&userid=2473
View this thread: http://www.excelforum.com/showthread...hreadid=529589