thanks a lot Harmeet Singh ;)
it works perfectly !
On Feb 21, 4:23 pm, Harmeet Singh wrote:
> try this
>
> Sub ggg()
>
> Dim MyColumn As String
> Dim MyRange As Range, MyRange1 As Range
> MyColumn = "A"
> myvalue = "Main"
> lastrow = Cells(Rows.Count, MyColumn).End(xlUp).Row
> Set MyRange = Ran
try this
Sub ggg()
Dim MyColumn As String
Dim MyRange As Range, MyRange1 As Range
MyColumn = "A"
myvalue = "Main"
lastrow = Cells(Rows.Count, MyColumn).End(xlUp).Row
Set MyRange = Range(MyColumn & "1:" & MyColumn & lastrow)
Range(MyColumn & "1").Select
For i = 1 To lastrow
If Range(MyColumn &
