Question: I am working on an EE 1.7.1 site and need to display the two most recent article entries on the home page. The challenge is that I also need to link those entries back to their respective category pages to display properly.

Here is the code I have so far:

```
{exp:weblog:entries weblog="articles" limit="2"}
   <p><a href="{site_url}article/{url_title}">{title}</a></p>
{/exp:weblog:entries}

```

Here is what I would like to do so that it brings in the corresponding :

```
{exp:weblog:entries weblog="articles" limit="2"}
  {categories}
   <p><a href="{site_url}{category_url_title}/{url_title}">{title}</a></p>
  {/categories}
{/exp:weblog:entries}

```

Unfortunately this doesn't work correctly. What is the right way to do this?

Thanks.

Answer: 
Working fine with me . These statement does not throw any error to me

```
 Sheet1.Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete 'perfect

```

I found these type of solution for your question

```
 On Error Resume Next
 Sheet1.Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
 On Error GoTo 0

```

Take a look at these links

<http://www.excelforum.com/excel-programming/390329-microsoft-visual-basic-run-time-error-1004-no-cells-were-found.html>

<http://www.mrexcel.com/forum/showthread.php?t=343744>

and well yes did you set your object ? worksheet does not make any sense here

```
dim wsheet as worksheets
set wsheet = worksheets("worksheetname") or worksheets("sheet1")
wsheet.Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

```
```
Sub delete_rows_blank()

t = 1
lastrow = ActiveSheet.UsedRange.Rows.Count
Do Until t = lastrow
If Cells(t, "A") = "" Then
Rows(t).Delete
End If
t = t + 1
Loop

End Sub

```