View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
ssGuru ssGuru is offline
external usenet poster
 
Posts: 63
Default Code to add Range Value produces nothing

I want to add a value in col 26 in the current row IF a change occurs
in Column 3 of that row.
I have a cell with a named range "RptCreator", in the worksheet
"InstructionPrice"
Any ideas why this code DOES NOT add any value to Col 26? or anywhere
else.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Pn As String

If Target.Column = 3 Then
r = Target.Row
c = Target.Column
Pn = Sheets("InstructionPrice").Range("RptCreator").Val ue
If Cells(r, c) = Empty Then
Cells(r, 26) = Pn
End If
End If
End Sub

Thanks, Dennis