"Nigel" wrote in message
...
Hi Bob,

Sorry, i forgot to mention that the Textbox is actually a combobox

:-)

and it is
on another sheet called "Contacts Page". Everything works from here and
the
"Contacts" sheet is hidden. the next cell is found and row inserted
without
actually opening the sheet.

Presumably ws points to 'Contacts Page' and the combo is on some other page?

iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row
ws.Rows(iRow).Insert
ActiveSheet.ComboBox1.ListFillRange = "'Contacts Page'!A3:G" & iRow

should work, it did in my tests