Thanks for your help with my last prob Frank....

The below code should check if there is a formula in range
b2 on sheet email and if it doesnt fill range b2:d125 with
formulas. NB I have ommited formula as they are rather
long and make code unclear.

This code works if I have worksheet Emails open but I
would like to run this code from another sheet. I
previously used worksheets("email").select but I do not
want the user to see this sheet.

Does anyone know why the with worksheets("email") is not
working?

Sub Add_Email_Formulas()

If Worksheets("Email").Range("B2").HasFormula Then
End
Else

With Worksheets("Email")
Range("B2").Formula = "FORMULA"
Range("C2").Formula = "FORMULA"
Range("D2").Formula = "FORMULA"
Range("B2:D2").AutoFill Destination:=Range("B2:D125")
End With
End If

End Sub