Use it like this

This line is wrong
If Trim(A6) = "" Then


Sub Test()
Sheets("Sheet1").Select

If Trim(Range("A6")) = "" Then
Range("A4").EntireRow.Insert
End If
End Sub


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Bonnie" wrote in message ...
Hi,

In a Macro (VBA) I am testing cell A6 for null, if isnull (""), I want to
insert a row. The problem is that it always inserts a row even when cell A6
has something in it? There are blank spaces at the from of the cell so I
trimmed it. Does anyone see something I'm doing wrong?


Sheets("Sheet1").Select
Range("A6").Select
If Trim(A6) = "" Then
Range("A4").Select
Selection.EntireRow.Insert
End If

Thanks in advance.

Bonnie