i'm working with a multiple sheets workbook.. and i need to put a sentence (from the textbox) in a diferent sheet (not active sheet)... i write this code, and it translate me to the correct sheet, but it doesn't write the text in any place.. =(

i was doing the same with the active sheet and it work perfectly, but it doesn't with not active sheet...

please, if you can help me, write to rb34_sj@yahoo.com, thanks.. and sorry for my english


If TextBox1.TextLength <> 0 Then

Dim Fila As Integer

Fila = 5

With Sheets(1) '1 is the index of the sheet, the name is traslados
'in place of the one i was put "traslados" but it doesn't
'work anyway

Do While ActiveWorkbook.Sheets(1).Cells(Fila, 2) <> Empty
Fila = Fila + 1
Loop



ActiveWorkbook.Sheets(1).Cells(Fila, 2).Value = TextBox1.Text

Unload Me
End With
Else
MsgBox "No has ingresado la descripción de la transferencia"



End If