Without seeing all, try these ideas

with Sheets("REQUEST ")
If Len(Application.Trim(.Range("d4"))) < 1 Then
MsgBox "bad"
Exit Sub
End If
'MsgBox "go on "

.Unprotect

.Rows("4).insert

range("NewRecord").copy .cells(4,"a")
'etc
Sheets("SEARCH ").Range("D9:E9").copy ' ??

end with
end sub
--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Munchkin" wrote in message
...
I'm only entering part of my macro button because it's long.

The first thing I want my macro to do is look at D4 & give an error
message
if the cell is blank. How do I do that?



Sheets("REQUEST ").Select
ActiveSheet.Unprotect
Rows("4:4").Select
Selection.Insert Shift:=xlDown
Application.Goto Reference:="NewRecord"
Selection.Copy
Rows("4:4").Select
ActiveSheet.Paste
Range("A4").Select
Application.CutCopyMode = False
Selection.Copy
Range("D4").Select
Sheets("SEARCH ").Select
Range("D9:E9").Select
Application.CutCopyMode = False