VBA Code for new sheet

[TCHME]

I would like to have a code that, when I enter in the Date or (in this case I plan on using my initials) on sheet #1, a cell on sheet #2 would automatically have something enter in it.
I have a code for doing this on a sheet but I'm having troubles geting it to go to the other sheet .

Here is what I have so far

any ideas????


Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect([B10:B20], Target) Is Nothing Then
'HERE WE TARGET ROWS

Application.EnableEvents = False
Cells(Target.Row, 4) = "TCHME" 'you can put anything you want here
Cells(Target.Row, 6) = Now 'Now = Date and Time
Cells(Target.Row, 8) = "Excel Is Powerful" 'you can add a new line to add a different column

Application.EnableEvents = True

End If

If Not Intersect([B21:M21], Target) Is Nothing Then
' HERE WE TARGET COLUMN

Application.EnableEvents = False
Cells(23, Target.Column) = "TCHME" 'you can put anything you want here
Cells(25, Target.Column) = Now 'Now = Date and Time
Cells(27, Target.Column) = "Excel Is Powerful" 'you can add a new line to add a different column

Application.EnableEvents = True

End If

End Sub

 

[VoG]

Try like this

Sheets("Sheet2").Cells(Target.Row, 4) = "TCHME"