See revised code below. Sorry for the delay! Let me know if you have
any questions or it doesn't work.

Mark

Nev wrote:
*Thanks Mark works fine, have three other similar situations -

For x = 1 to 26
If UserForm1.Controls("txt" & CHR(64 + x)).Value = "" Then
UserForm1.Controls("txt" & CHR(64 + x)).Value = 0
Else
txtValue = CDbl(UserForm1.Controls("txt" & CHR(64 + x)).Value)
End If
Next x
__________________________________________________ __
For x = 1 to 26
If UserForm1.Controls("txt" & CHR(64 + x)).Value = 0 Then
vaData(1, 7) = Null
Else
vaData(1, 7) = UserForm1.Controls("txt" & CHR(64 + x)).Value
End If
Next x
__________________________________________________ _

Private Sub txtA_Exit(ByVal Cancel As MSForms.ReturnBoolean)
ReCalc
End Sub
Private Sub txtB_Exit(ByVal Cancel As MSForms.ReturnBoolean)
ReCalc
End Sub

Private Sub txtC_Exit(ByVal Cancel As MSForms.ReturnBoolean)
ReCalc
End Sub

all cycle through a to z

any help appreciared *



------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~ View and post usenet messages directly from http://www.ExcelForum.com/