hey evry one, havin some trouble!

Application.Goto Reference:="usstrt"

Do
If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(1, 0).Select
End If

Loop Until IsEmpty(ActiveCell) = True

ActiveCell.Value = *want to reference to a cell or a named reference*
ActiveCell.Offset(0, 1) = *want to reference to a cell or a named
reference*
ActiveCell.Offset(0, 2) = *want to reference to a cell or a named
reference*


MsgBox "All data was added correctly", vbInformation, "Infomation"

End Sub

Thank you very much :D


---
Message posted from http://www.ExcelForum.com/