Thanks Rod
Used the code below and it worked fine, cheers
Sean
deliverGuid = ActiveProject.Tasks(x).DeliverableGuid
If deliverGuid = "00000000-0000-0000-0000-000000000000" Then
SelectRow Row:=x, rowrelative:=False
TaskDeliverableCreate Create:=True
Else
SelectRow Row:=x, rowrelative:=False
TaskDeliverableCreate Create:=False
End If