Thread: Code Help
View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.programming
JMB JMB is offline
external usenet poster
 
Posts: 2,062
Default Code Help

I think you want to change

If Target.Value < """"

To

If Target.Value < ""

You are testing to see if the cell contains a quote " , not blank as you
stated.


"Ronbo" wrote:

I am trying to develop code so that on the event that a1 is not blank the
cursor will go to B2 and take $A$1*B1. Then move over one cell to C2 and
take $A$1*C1 out to a100.

So far I have;


Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Target.Address = "$A$1" Then
Application.EnableEvents = False
If Target.Value < """" Then
'Need Help with Code"

End If
Application.EnableEvents = True
End If

End Sub

As always, thanks a lot for any help.