software

I receive peoples' Sports Picks via email, from a 3rd party form processor.

I then copy their picks, go to Excel and execute this Macro: (Just recorded
with the Macro Recorder)

Application.Goto Reference:=quot;R68C72quot;
ActiveSheet.PasteSpecial Format:=quot;Textquot;, Link:=False, DisplayAsIcon:= _
False
Selection.TextToColumns Destination:=Range(quot;BT68quot;),
DataType:=xlFixedWidth _
, FieldInfo:=Array(Array(0, 1), Array(6, 1)),
TrailingMinusNumbers:=True
Range(quot;BU68:BU77quot;).Select
Range(quot;BU68:BU77quot;).Activate
Selection.CopyWhat I would dearly love it to do is:

* Look up the reference in BU77
* Find that in the range J67:BB67
* Paste into rows 68-77 below where it finds that reference.

If someone could also insert some code to automatically click quot;OKquot; when the
dialog asking quot;Do you want to replace the contents of the destination cells?quot;
into the quot;Text to Columnsquot; code above, that would be like heaven!!

Thanks for your time and attention!Eddie
Hi Eddie,

The below code should do what you are after.
The line quot;Application.DisplayAlerts = Falsequot; amp; the matching ...quot;truequot;
should stop the popup from the text to column code.

Sub Test()
Dim ReferenceValue As String
Dim Headers As Range
Set Headers = Range(quot;J67:BB67quot;)
Dim ReferenceColumn As Long

Application.Goto Reference:=quot;R68C72quot;, Scroll:=True
Application.ScreenUpdating = False
Application.DisplayAlerts = False
ActiveSheet.PasteSpecial Format:=quot;Textquot;, Link:=False, DisplayAsIcon:=
_
False
Selection.TextToColumns Destination:=Range(quot;BT68quot;),
DataType:=xlFixedWidth _
, FieldInfo:=Array(Array(0, 1), Array(6, 1)),
TrailingMinusNumbers:=True
ReferenceValue = Range(quot;bu77quot;)
Application.DisplayAlerts = True
On Error GoTo ErrorMessage
ReferenceColumn = Headers.Find(What:=ReferenceValue, After:=ActiveCell,
LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
_
MatchCase:=False, SearchFormat:=False).Column

Range(quot;BU68:BU77quot;).Copy Cells(68, ReferenceColumn)
Application.ScreenUpdating = True
Exit Sub
ErrorMessage:
MsgBox quot;The value in BU77 is not one of the headers therefore macro
ending!quot; amp; Chr(13) amp; Chr(13) amp; quot;The error is:quot; amp; chr(13) amp; Error
Application.ScreenUpdating = True
End Sub

btw, the error message is probably not needed but then again, you never
know.

Hth
Rob Brockett
NZ
Always learning amp; the best way to learn is to experience...--
broro183
------------------------------------------------------------------------
broro183's Profile: www.excelforum.com/member.php...oamp;userid=30068
View this thread: www.excelforum.com/showthread...hreadid=521429Hi Rob

Nice to see a fellow kiwi!!

Some of your code turns red in my system - I've pasted it below and have
placed 2 asterisks at the start and finish of the stuff that is red.

Any suggestions? I do appreciate your help, and am pleased to say that I've
now manged to get rid of the Alert box, with your help!!Sub Test()
Dim ReferenceValue As String
Dim Headers As Range
Set Headers = Range(quot;J67:BB67quot;)
Dim ReferenceColumn As Long

Application.Goto Reference:=quot;R68C72quot;, Scroll:=True
Application.ScreenUpdating = False
Application.DisplayAlerts = False
**ActiveSheet.PasteSpecial Format:=quot;Textquot;, Link:=False, DisplayAsIcon:=
_
False
Selection.TextToColumns Destination:=Range(quot;BT68quot;),
DataType:=xlFixedWidth _
, FieldInfo:=Array(Array(0, 1), Array(6, 1)),
TrailingMinusNumbers:=True**
ReferenceValue = Range(quot;bu77quot;)
Application.DisplayAlerts = True
On Error GoTo ErrorMessage
**ReferenceColumn = Headers.Find(What:=ReferenceValue, After:=ActiveCell,
LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
_
MatchCase:=False, SearchFormat:=False).Column**

Range(quot;BU68:BU77quot;).Copy Cells(68, ReferenceColumn)
Application.ScreenUpdating = True
Exit Sub
ErrorMessage:
MsgBox quot;The value in BU77 is not one of the headers therefore macroquot;
**ending!quot; amp; Chr(13) amp; Chr(13) amp; quot;The error is:quot; amp; chr(13) amp; Error**
Application.ScreenUpdating = True
End Subquot;broro183quot; wrote:

gt;
gt; Hi Eddie,
gt;
gt; The below code should do what you are after.
gt; The line quot;Application.DisplayAlerts = Falsequot; amp; the matching ...quot;truequot;
gt; should stop the popup from the text to column code.
gt;
gt; Sub Test()
gt; Dim ReferenceValue As String
gt; Dim Headers As Range
gt; Set Headers = Range(quot;J67:BB67quot;)
gt; Dim ReferenceColumn As Long
gt;
gt; Application.Goto Reference:=quot;R68C72quot;, Scroll:=True
gt; Application.ScreenUpdating = False
gt; Application.DisplayAlerts = False
gt; ActiveSheet.PasteSpecial Format:=quot;Textquot;, Link:=False, DisplayAsIcon:=
gt; _
gt; False
gt; Selection.TextToColumns Destination:=Range(quot;BT68quot;),
gt; DataType:=xlFixedWidth _
gt; , FieldInfo:=Array(Array(0, 1), Array(6, 1)),
gt; TrailingMinusNumbers:=True
gt; ReferenceValue = Range(quot;bu77quot;)
gt; Application.DisplayAlerts = True
gt; On Error GoTo ErrorMessage
gt; ReferenceColumn = Headers.Find(What:=ReferenceValue, After:=ActiveCell,
gt; LookIn:=xlFormulas, _
gt; LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
gt; _
gt; MatchCase:=False, SearchFormat:=False).Column
gt;
gt; Range(quot;BU68:BU77quot;).Copy Cells(68, ReferenceColumn)
gt; Application.ScreenUpdating = True
gt; Exit Sub
gt; ErrorMessage:
gt; MsgBox quot;The value in BU77 is not one of the headers therefore macro
gt; ending!quot; amp; Chr(13) amp; Chr(13) amp; quot;The error is:quot; amp; chr(13) amp; Error
gt; Application.ScreenUpdating = True
gt; End Sub
gt;
gt; btw, the error message is probably not needed but then again, you never
gt; know.
gt;
gt; Hth
gt; Rob Brockett
gt; NZ
gt; Always learning amp; the best way to learn is to experience...
gt;
gt;
gt; --
gt; broro183
gt; ------------------------------------------------------------------------
gt; broro183's Profile: www.excelforum.com/member.php...oamp;userid=30068
gt; View this thread: www.excelforum.com/showthread...hreadid=521429
gt;
gt;

You have line wrapping, for instance

ActiveSheet.PasteSpecial Format:=quot;Textquot;, Link:=False, DisplayAsIcon:=
_
Falseshould be either

ActiveSheet.PasteSpecial Format:=quot;Textquot;, Link:=False, DisplayAsIcon:= _
False

or all on one line without the underscore

ActiveSheet.PasteSpecial Format:=quot;Textquot;, Link:=False, DisplayAsIcon:= False

you can do the same with the other lines,
--

Regards,

Peo Sjoblom

Northwest Excel Solutions

www.nwexcelsolutions.com

(remove ^^ from email address)

Portland, Oregon

quot;Blobbiesquot; gt; wrote in message
...
gt; Hi Rob
gt;
gt; Nice to see a fellow kiwi!!
gt;
gt; Some of your code turns red in my system - I've pasted it below and have
gt; placed 2 asterisks at the start and finish of the stuff that is red.
gt;
gt; Any suggestions? I do appreciate your help, and am pleased to say that
gt; I've
gt; now manged to get rid of the Alert box, with your help!!
gt;
gt;
gt; Sub Test()
gt; Dim ReferenceValue As String
gt; Dim Headers As Range
gt; Set Headers = Range(quot;J67:BB67quot;)
gt; Dim ReferenceColumn As Long
gt;
gt; Application.Goto Reference:=quot;R68C72quot;, Scroll:=True
gt; Application.ScreenUpdating = False
gt; Application.DisplayAlerts = False
gt; **ActiveSheet.PasteSpecial Format:=quot;Textquot;, Link:=False, DisplayAsIcon:=
gt; _
gt; False
gt; Selection.TextToColumns Destination:=Range(quot;BT68quot;),
gt; DataType:=xlFixedWidth _
gt; , FieldInfo:=Array(Array(0, 1), Array(6, 1)),
gt; TrailingMinusNumbers:=True**
gt; ReferenceValue = Range(quot;bu77quot;)
gt; Application.DisplayAlerts = True
gt; On Error GoTo ErrorMessage
gt; **ReferenceColumn = Headers.Find(What:=ReferenceValue, After:=ActiveCell,
gt; LookIn:=xlFormulas, _
gt; LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
gt; _
gt; MatchCase:=False, SearchFormat:=False).Column**
gt;
gt; Range(quot;BU68:BU77quot;).Copy Cells(68, ReferenceColumn)
gt; Application.ScreenUpdating = True
gt; Exit Sub
gt; ErrorMessage:
gt; MsgBox quot;The value in BU77 is not one of the headers therefore macroquot;
gt; **ending!quot; amp; Chr(13) amp; Chr(13) amp; quot;The error is:quot; amp; chr(13) amp; Error**
gt; Application.ScreenUpdating = True
gt; End Sub
gt;
gt;
gt; quot;broro183quot; wrote:
gt;
gt;gt;
gt;gt; Hi Eddie,
gt;gt;
gt;gt; The below code should do what you are after.
gt;gt; The line quot;Application.DisplayAlerts = Falsequot; amp; the matching ...quot;truequot;
gt;gt; should stop the popup from the text to column code.
gt;gt;
gt;gt; Sub Test()
gt;gt; Dim ReferenceValue As String
gt;gt; Dim Headers As Range
gt;gt; Set Headers = Range(quot;J67:BB67quot;)
gt;gt; Dim ReferenceColumn As Long
gt;gt;
gt;gt; Application.Goto Reference:=quot;R68C72quot;, Scroll:=True
gt;gt; Application.ScreenUpdating = False
gt;gt; Application.DisplayAlerts = False
gt;gt; ActiveSheet.PasteSpecial Format:=quot;Textquot;, Link:=False, DisplayAsIcon:=
gt;gt; _
gt;gt; False
gt;gt; Selection.TextToColumns Destination:=Range(quot;BT68quot;),
gt;gt; DataType:=xlFixedWidth _
gt;gt; , FieldInfo:=Array(Array(0, 1), Array(6, 1)),
gt;gt; TrailingMinusNumbers:=True
gt;gt; ReferenceValue = Range(quot;bu77quot;)
gt;gt; Application.DisplayAlerts = True
gt;gt; On Error GoTo ErrorMessage
gt;gt; ReferenceColumn = Headers.Find(What:=ReferenceValue, After:=ActiveCell,
gt;gt; LookIn:=xlFormulas, _
gt;gt; LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
gt;gt; _
gt;gt; MatchCase:=False, SearchFormat:=False).Column
gt;gt;
gt;gt; Range(quot;BU68:BU77quot;).Copy Cells(68, ReferenceColumn)
gt;gt; Application.ScreenUpdating = True
gt;gt; Exit Sub
gt;gt; ErrorMessage:
gt;gt; MsgBox quot;The value in BU77 is not one of the headers therefore macro
gt;gt; ending!quot; amp; Chr(13) amp; Chr(13) amp; quot;The error is:quot; amp; chr(13) amp; Error
gt;gt; Application.ScreenUpdating = True
gt;gt; End Sub
gt;gt;
gt;gt; btw, the error message is probably not needed but then again, you never
gt;gt; know.
gt;gt;
gt;gt; Hth
gt;gt; Rob Brockett
gt;gt; NZ
gt;gt; Always learning amp; the best way to learn is to experience...
gt;gt;
gt;gt;
gt;gt; --
gt;gt; broro183
gt;gt; ------------------------------------------------------------------------
gt;gt; broro183's Profile:
gt;gt; www.excelforum.com/member.php...oamp;userid=30068
gt;gt; View this thread:
gt;gt; www.excelforum.com/showthread...hreadid=521429
gt;gt;
gt;gt;
Hi Eddie,
Yep, it's nice to see a fellow Kiwi :-)
Peo's suggestion should help you out with the line wrapping - Thanks
Peo.

Rob Brockett
NZ
Always learning amp; the best way to learn is to experience...--
broro183
------------------------------------------------------------------------
broro183's Profile: www.excelforum.com/member.php...oamp;userid=30068
View this thread: www.excelforum.com/showthread...hreadid=521429Thanks Peo

The next problem is that I', getting an error message I execute it, saying:
quot;Runtime error 13 - Type Mismatchquot;

When I click on Debug, it comes up with this line highlighted:
quot;ReferenceColumn = Headers.Find(What:=ReferenceValue, After:=ActiveCell,
LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Columnquot;

I imagine it's something I've done wrong - sorry for being so dopey!!

And thanks for any help!

Eddie
quot;Peo Sjoblomquot; wrote:

gt; You have line wrapping, for instance
gt;
gt; ActiveSheet.PasteSpecial Format:=quot;Textquot;, Link:=False, DisplayAsIcon:=
gt; _
gt; False
gt;
gt;
gt; should be either
gt;
gt; ActiveSheet.PasteSpecial Format:=quot;Textquot;, Link:=False, DisplayAsIcon:= _
gt; False
gt;
gt; or all on one line without the underscore
gt;
gt; ActiveSheet.PasteSpecial Format:=quot;Textquot;, Link:=False, DisplayAsIcon:= False
gt;
gt; you can do the same with the other lines,
gt;
gt;
gt;
gt;
gt;
gt;
gt; --
gt;
gt; Regards,
gt;
gt; Peo Sjoblom
gt;
gt; Northwest Excel Solutions
gt;
gt; www.nwexcelsolutions.com
gt;
gt; (remove ^^ from email address)
gt;
gt; Portland, Oregon
gt;
gt;
gt;
gt;
gt; quot;Blobbiesquot; gt; wrote in message
gt; ...
gt; gt; Hi Rob
gt; gt;
gt; gt; Nice to see a fellow kiwi!!
gt; gt;
gt; gt; Some of your code turns red in my system - I've pasted it below and have
gt; gt; placed 2 asterisks at the start and finish of the stuff that is red.
gt; gt;
gt; gt; Any suggestions? I do appreciate your help, and am pleased to say that
gt; gt; I've
gt; gt; now manged to get rid of the Alert box, with your help!!
gt; gt;
gt; gt;
gt; gt; Sub Test()
gt; gt; Dim ReferenceValue As String
gt; gt; Dim Headers As Range
gt; gt; Set Headers = Range(quot;J67:BB67quot;)
gt; gt; Dim ReferenceColumn As Long
gt; gt;
gt; gt; Application.Goto Reference:=quot;R68C72quot;, Scroll:=True
gt; gt; Application.ScreenUpdating = False
gt; gt; Application.DisplayAlerts = False
gt; gt; **ActiveSheet.PasteSpecial Format:=quot;Textquot;, Link:=False, DisplayAsIcon:=
gt; gt; _
gt; gt; False
gt; gt; Selection.TextToColumns Destination:=Range(quot;BT68quot;),
gt; gt; DataType:=xlFixedWidth _
gt; gt; , FieldInfo:=Array(Array(0, 1), Array(6, 1)),
gt; gt; TrailingMinusNumbers:=True**
gt; gt; ReferenceValue = Range(quot;bu77quot;)
gt; gt; Application.DisplayAlerts = True
gt; gt; On Error GoTo ErrorMessage
gt; gt; **ReferenceColumn = Headers.Find(What:=ReferenceValue, After:=ActiveCell,
gt; gt; LookIn:=xlFormulas, _
gt; gt; LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
gt; gt; _
gt; gt; MatchCase:=False, SearchFormat:=False).Column**
gt; gt;
gt; gt; Range(quot;BU68:BU77quot;).Copy Cells(68, ReferenceColumn)
gt; gt; Application.ScreenUpdating = True
gt; gt; Exit Sub
gt; gt; ErrorMessage:
gt; gt; MsgBox quot;The value in BU77 is not one of the headers therefore macroquot;
gt; gt; **ending!quot; amp; Chr(13) amp; Chr(13) amp; quot;The error is:quot; amp; chr(13) amp; Error**
gt; gt; Application.ScreenUpdating = True
gt; gt; End Sub
gt; gt;
gt; gt;
gt; gt; quot;broro183quot; wrote:
gt; gt;
gt; gt;gt;
gt; gt;gt; Hi Eddie,
gt; gt;gt;
gt; gt;gt; The below code should do what you are after.
gt; gt;gt; The line quot;Application.DisplayAlerts = Falsequot; amp; the matching ...quot;truequot;
gt; gt;gt; should stop the popup from the text to column code.
gt; gt;gt;
gt; gt;gt; Sub Test()
gt; gt;gt; Dim ReferenceValue As String
gt; gt;gt; Dim Headers As Range
gt; gt;gt; Set Headers = Range(quot;J67:BB67quot;)
gt; gt;gt; Dim ReferenceColumn As Long
gt; gt;gt;
gt; gt;gt; Application.Goto Reference:=quot;R68C72quot;, Scroll:=True
gt; gt;gt; Application.ScreenUpdating = False
gt; gt;gt; Application.DisplayAlerts = False
gt; gt;gt; ActiveSheet.PasteSpecial Format:=quot;Textquot;, Link:=False, DisplayAsIcon:=
gt; gt;gt; _
gt; gt;gt; False
gt; gt;gt; Selection.TextToColumns Destination:=Range(quot;BT68quot;),
gt; gt;gt; DataType:=xlFixedWidth _
gt; gt;gt; , FieldInfo:=Array(Array(0, 1), Array(6, 1)),
gt; gt;gt; TrailingMinusNumbers:=True
gt; gt;gt; ReferenceValue = Range(quot;bu77quot;)
gt; gt;gt; Application.DisplayAlerts = True
gt; gt;gt; On Error GoTo ErrorMessage
gt; gt;gt; ReferenceColumn = Headers.Find(What:=ReferenceValue, After:=ActiveCell,
gt; gt;gt; LookIn:=xlFormulas, _
gt; gt;gt; LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
gt; gt;gt; _
gt; gt;gt; MatchCase:=False, SearchFormat:=False).Column
gt; gt;gt;
gt; gt;gt; Range(quot;BU68:BU77quot;).Copy Cells(68, ReferenceColumn)
gt; gt;gt; Application.ScreenUpdating = True
gt; gt;gt; Exit Sub
gt; gt;gt; ErrorMessage:
gt; gt;gt; MsgBox quot;The value in BU77 is not one of the headers therefore macro
gt; gt;gt; ending!quot; amp; Chr(13) amp; Chr(13) amp; quot;The error is:quot; amp; chr(13) amp; Error
gt; gt;gt; Application.ScreenUpdating = True
gt; gt;gt; End Sub
gt; gt;gt;
gt; gt;gt; btw, the error message is probably not needed but then again, you never
gt; gt;gt; know.
gt; gt;gt;
gt; gt;gt; Hth
gt; gt;gt; Rob Brockett
gt; gt;gt; NZ
gt; gt;gt; Always learning amp; the best way to learn is to experience...
gt; gt;gt;
gt; gt;gt;
gt; gt;gt; --
gt; gt;gt; broro183
gt; gt;gt; ------------------------------------------------------------------------
gt; gt;gt; broro183's Profile:
gt; gt;gt; www.excelforum.com/member.php...oamp;userid=30068
gt; gt;gt; View this thread:
gt; gt;gt; www.excelforum.com/showthread...hreadid=521429
gt; gt;gt;
gt; gt;gt;
gt;
gt;


Hi Eddie,

Sorry, this isn't as trouble free as I would have liked - I don't know
why the quot;mismatchquot; error is occurring. The macro worked for me when I
tested before posting it but wasn't interested in working when I tried
again after seeing your response, if the below doesn't work hopefully
Peo or someone else can explain the problem to both of us.

I changed the ReferenceColumn line to...
ReferenceColumn = Headers.Find(What:=ReferenceValue, MatchCase:=False,
SearchFormat:=False).Column

I don't know why but removing the other arguments seems to allow this
to work.

hth
Rob Brockett
NZ
Always learning amp; the bes way to learn is to experience...--
broro183
------------------------------------------------------------------------
broro183's Profile: www.excelforum.com/member.php...oamp;userid=30068
View this thread: www.excelforum.com/showthread...hreadid=521429thanks rob (amp; peo)

i appreciate your efforts!

as you can probably tell, i enjoy using excel, but am not clever enough to
work out these macros! i can kinda see how they work, but am not familiar
enough with them to work out exactly what you've done!

cheers!!
quot;broro183quot; wrote:

gt;
gt; Hi Eddie,
gt;
gt; Sorry, this isn't as trouble free as I would have liked - I don't know
gt; why the quot;mismatchquot; error is occurring. The macro worked for me when I
gt; tested before posting it but wasn't interested in working when I tried
gt; again after seeing your response, if the below doesn't work hopefully
gt; Peo or someone else can explain the problem to both of us.
gt;
gt; I changed the ReferenceColumn line to...
gt; ReferenceColumn = Headers.Find(What:=ReferenceValue, MatchCase:=False,
gt; SearchFormat:=False).Column
gt;
gt; I don't know why but removing the other arguments seems to allow this
gt; to work.
gt;
gt; hth
gt; Rob Brockett
gt; NZ
gt; Always learning amp; the bes way to learn is to experience...
gt;
gt;
gt; --
gt; broro183
gt; ------------------------------------------------------------------------
gt; broro183's Profile: www.excelforum.com/member.php...oamp;userid=30068
gt; View this thread: www.excelforum.com/showthread...hreadid=521429
gt;
gt;


Hi Eddie,
Thanks for the feedback.
I hope it works now, does it?
If not, there are a couple of other ways we could work around the
problem -let us know.

quot;as you can probably tell, i enjoy using excel, but am not clever
enough to
work out these macros! i can kinda see how they work, but am not
familiar
enough with them to work out exactly what you've done!quot;

I enjoy using Excel too amp; am sure you are clever enough to work these
out - you're right it is just familiarity, remember you are effectively
learning another language amp; this takes time.
18 months ago I didn't even know macros existed amp; it was just over a
year ago that someone showed me the quot;insidesquot; of one amp; that there is
such a thing as a quot;macro recorderquot;!
If you want to get better just keeping playing/experimenting amp; reading
solutions to other people's questions, as I say in my signature...

Rob Brockett
NZ
Always learning amp; the best way to learn is to experience...--
broro183
------------------------------------------------------------------------
broro183's Profile: www.excelforum.com/member.php...oamp;userid=30068
View this thread: www.excelforum.com/showthread...hreadid=521429cheers rob

i will keep playing - am up too late already tonight, mucking around with my
fifa football world cup picks spreadsheet!

and you're right, mucking around with it is the best way to learn!

thanks for your help!!eddie

quot;broro183quot; wrote:

gt;
gt; Hi Eddie,
gt; Thanks for the feedback.
gt; I hope it works now, does it?
gt; If not, there are a couple of other ways we could work around the
gt; problem -let us know.
gt;
gt; quot;as you can probably tell, i enjoy using excel, but am not clever
gt; enough to
gt; work out these macros! i can kinda see how they work, but am not
gt; familiar
gt; enough with them to work out exactly what you've done!quot;
gt;
gt; I enjoy using Excel too amp; am sure you are clever enough to work these
gt; out - you're right it is just familiarity, remember you are effectively
gt; learning another language amp; this takes time.
gt; 18 months ago I didn't even know macros existed amp; it was just over a
gt; year ago that someone showed me the quot;insidesquot; of one amp; that there is
gt; such a thing as a quot;macro recorderquot;!
gt; If you want to get better just keeping playing/experimenting amp; reading
gt; solutions to other people's questions, as I say in my signature...
gt;
gt; Rob Brockett
gt; NZ
gt; Always learning amp; the best way to learn is to experience...
gt;
gt;
gt; --
gt; broro183
gt; ------------------------------------------------------------------------
gt; broro183's Profile: www.excelforum.com/member.php...oamp;userid=30068
gt; View this thread: www.excelforum.com/showthread...hreadid=521429
gt;
gt;