*De:* excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com]
> *Em nome de *priti verma
> *Enviada em:* domingo, 29 de setembro de 2013 00:55
> *Para:* excel-macros@googlegroups.com
> *Assunto:* Re: $$Excel-Macros$$ Delete Line
>
> ** **
>
> Sub deletel
Sub deleteline()
Dim rngRange As Range
Dim rngCell As Range
Dim rngUnion As Range
Dim strvalue As String
Dim intcolumn As Integer
Set rngRange = ThisWorkbook.Worksheets(1).UsedRange
intcolumn = InputBox("Please enter the Column Number,where you have
that value
