Re: Macro delete rows

Tech Tip: Click here to run a free scan for Windows Errors and optimize PC performance

From: Frank Kabel (frank.kabel_at_freenet.de)
Date: 03/10/04

Next message: Joe: "Error in Loading DLL - repost"
Previous message: Logan: "Save as macro"
In reply to: ianripping: "Re: Macro delete rows"
Messages sorted by: [ date ] [ thread ]

Date: Wed, 10 Mar 2004 19:17:01 +0100

Hi
this works perfectly for me. what have you entered in cell A1. cell A1
has to contain a number. So you may try the following

Sub delete_rownumber()
Dim rng As Range
Dim row_number
row_number = Active***.Range("A1").Value
If IsNumeric(row_number) Then
    Set rng = Range(Cells(row_number, "A"), Cells(row_number, "T"))
    rng.ClearContents
Else
    MsgBox "Enter a number in cell A1"
End If
End Sub

--
Regards
Frank Kabel
Frankfurt, Germany
> no luck, asks to debug on line set rng =
> range(cells(row_number,"A"),cells(row_number,"T"))
>
>
> ---
> Message posted from http://www.ExcelForum.com/

Next message: Joe: "Error in Loading DLL - repost"
Previous message: Logan: "Save as macro"
In reply to: ianripping: "Re: Macro delete rows"
Messages sorted by: [ date ] [ thread ]