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.