Hi All,

I was hoping to get a hint or two to find a specific word, which I'll
use to determine which worksheet to place the string in.

I would really appreciate only hints as to the process.

Thanks in advance.

Yours truly,

wccc.pctutor

Hint: InStr
--
Jim Cone
Portland, Oregon USA



"wccc.pctutor"

wrote in message
Hi All,

I was hoping to get a hint or two to find a specific word, which I'll
use to determine which worksheet to place the string in.
I would really appreciate only hints as to the process.
Thanks in advance.
Yours truly,
wccc.pctutor

try Searching the VBA Help Files for the InStr Function

"wccc.pctutor" wrote:

Hi All,

I was hoping to get a hint or two to find a specific word, which I'll
use to determine which worksheet to place the string in.

I would really appreciate only hints as to the process.

Thanks in advance.

Yours truly,

wccc.pctutor

Hint: The Like Operator.

--
Rick (MVP - Excel)


"wccc.pctutor" wrote in message
...
Hi All,

I was hoping to get a hint or two to find a specific word, which I'll
use to determine which worksheet to place the string in.

I would really appreciate only hints as to the process.

Thanks in advance.

Yours truly,

wccc.pctutor

Example: On the First worksheet in cells, A1 & A2 place these two words

A
1 Aardvark
2 Anteater

Then in the VBE paste this,

Option Explicit
Sub DoStuff()
Dim Start As Integer
Dim StringBeingSearched As String
Dim StringBeingSought As String
Dim ws As Worksheet
Dim LastRow As Long
Dim RangeToSearch As Range
Dim i As Variant

Set ws = ActiveWorkbook.Worksheets(1)
LastRow = ws.Cells(Rows.Count, 1).End(xlUp).Row
Set RangeToSearch = Range("A1:A" & LastRow)
Start = 1
StringBeingSought = "Aa"

For Each i In RangeToSearch
If InStr(Start, i, StringBeingSought) Then
MsgBox i
End If
Next
End Sub

Notice that the msgbox only returns Aardvark not anteater. The same can be
applied for any string Hope that helps.


"wccc.pctutor" wrote:

Hi All,

I was hoping to get a hint or two to find a specific word, which I'll
use to determine which worksheet to place the string in.

I would really appreciate only hints as to the process.

Thanks in advance.

Yours truly,

wccc.pctutor

The OP specifically asked for hints only (not full code).

--
Rick (MVP - Excel)


"Office_Novice" wrote in message
...
Example: On the First worksheet in cells, A1 & A2 place these two words

A
1 Aardvark
2 Anteater

Then in the VBE paste this,

Option Explicit
Sub DoStuff()
Dim Start As Integer
Dim StringBeingSearched As String
Dim StringBeingSought As String
Dim ws As Worksheet
Dim LastRow As Long
Dim RangeToSearch As Range
Dim i As Variant

Set ws = ActiveWorkbook.Worksheets(1)
LastRow = ws.Cells(Rows.Count, 1).End(xlUp).Row
Set RangeToSearch = Range("A1:A" & LastRow)
Start = 1
StringBeingSought = "Aa"

For Each i In RangeToSearch
If InStr(Start, i, StringBeingSought) Then
MsgBox i
End If
Next
End Sub

Notice that the msgbox only returns Aardvark not anteater. The same can be
applied for any string Hope that helps.


"wccc.pctutor" wrote:

Hi All,

I was hoping to get a hint or two to find a specific word, which I'll
use to determine which worksheet to place the string in.

I would really appreciate only hints as to the process.

Thanks in advance.

Yours truly,

wccc.pctutor

Hi All,

You guys have been really gracious.

I will be, intently, reading each of your responses' and look each one
up in the Help Section.

If I "fall, stumble or get stuck" I will be back

Again, thank you all for taking the time to answer my post.

Now to my wife's hone-do-list.

Later,

wccc.pctutor

Office_Novice:
Example: On the First worksheet in cells, A1 & A2 place these two
words

A
1 Aardvark
2 Anteater

Then in the VBE paste this,

Option Explicit
Sub DoStuff()
Dim Start As Integer
Dim StringBeingSearched As String
Dim StringBeingSought As String
Dim ws As Worksheet
Dim LastRow As Long
Dim RangeToSearch As Range
Dim i As Variant

Set ws = ActiveWorkbook.Worksheets(1)
LastRow = ws.Cells(Rows.Count, 1).End(xlUp).Row
Set RangeToSearch = Range("A1:A" & LastRow)
Start = 1
StringBeingSought = "Aa"

For Each i In RangeToSearch
If InStr(Start, i, StringBeingSought) Then
MsgBox i
End If
Next
End Sub

Notice that the msgbox only returns Aardvark not anteater. The same
can be
applied for any string Hope that helps.


"wccc.pctutor" wrote:

Hi All,

I was hoping to get a hint or two to find a specific word, which
I'll
use to determine which worksheet to place the string in.

I would really appreciate only hints as to the process.

Thanks in advance.

Yours truly,

wccc.pctutor