Hi Sandy,

Try this solution:

Sub SaveRecord()



If emptyrng(Range("D2:I2,J2:O2, etc.")) Then




all cells in the ranges "D2:I2,J2:O2,C3:F3,L3:M3,S3:T3,.etc.." have data
entered - (This is the bit I don't know how to code)



Then



Macro1



Else



'Message'



End Sub

Function emptyrng(myrng As Range)
Dim cella As Range
emptyrng = False
For Each cella In myrng
If IsEmpty(cella) Then
emptyrng = True
Exit Function
End If
Next cella
End Function

Regards,
Stefi