Thank you very much.
Your code was very useful
-Original Message-
From: "Daniel"
Date: Mon, 29 Mar 2010 10:57:18
To:
Subject: RE: $$Excel-Macros$$ Re: Continuous-Selection and transpose
Hello.
Give the following macro a try :
Sub test()
Dim c As Range
Dim ResAdr As S
Hello.
Give the following macro a try :
Sub test()
Dim c As Range
Dim ResAdr As String
Dim Ctr As Long
Set c = [A:A].Find("ADD NBRCDMACH")
If Not c Is Nothing Then
ResAdr = c.Address
Do
Ctr = Ctr + 1
Cells(Ctr, 2).Value = c.Value & c.Offset(1).Value &
c.Offset(2).
