AutoFit method of Range class failed

From: Wellie (anonymous_at_discussions.microsoft.com)
Date: 02/29/04


Date: Sun, 29 Feb 2004 05:14:45 -0800

The following are the simple few lines of code to adjust
the height of rows when user clicks the "Adjust Rows"
button. I keep on getting a run-time error "1004" saying
AutFit method of Range class failed.

Can someone please tell me where it fails ?

PS: The column contains data need adjust is Column D with
with more than 999 rows of data.

Private sub Adjust_Rows_Click()
Dim Rows as Integer

     Rows = ActiveSheet.Range("D999").End(xlUp).Row
     ActiveSheet.Range("D4:D"+Cstr(Rows)).Rows.AutoFit
End Sub

Thanks in advance for any help.