I have a piece of code that searches to find a string which triggers
the start of an event (copy/paste). However, I cannot control whether
the starting string will be in upper & lower case or a combination of
the two. How can I add code that will recognize the string regardless
of the case?

Any help you can give would be great (I'm relatively new to VBA).
Thanks!
Robin


Here's the beginning portion of my code. It's the strStart that is
causing the problem.

wbCRD.Worksheets("Pts, Driver Class, Age by Pts").Activate
Range("B1").Activate

If strChannel = "Agency" Then
strStart = "Driver Class Factors"
intStartRowOffset = 1
strEnd = "END SECTION"
intEndRowOffset = -2
strColumn = "P"
Else
strStart = "Driver Class Factors"
intStartRowOffset = 0
strEnd = ""
intEndRowOffset = -1
strColumn = "P"
End If

strStartingCell = FindAddress(strStart, intStartRowOffset)

Put "Option Compare Text" at the top of this module. After that all string
comparisons in that module will be case insensitive.

--
Jim
wrote in message
ups.com...
|I have a piece of code that searches to find a string which triggers
| the start of an event (copy/paste). However, I cannot control whether
| the starting string will be in upper & lower case or a combination of
| the two. How can I add code that will recognize the string regardless
| of the case?
|
| Any help you can give would be great (I'm relatively new to VBA).
| Thanks!
| Robin
|
|
| Here's the beginning portion of my code. It's the strStart that is
| causing the problem.
|
| wbCRD.Worksheets("Pts, Driver Class, Age by Pts").Activate
| Range("B1").Activate
|
| If strChannel = "Agency" Then
| strStart = "Driver Class Factors"
| intStartRowOffset = 1
| strEnd = "END SECTION"
| intEndRowOffset = -2
| strColumn = "P"
| Else
| strStart = "Driver Class Factors"
| intStartRowOffset = 0
| strEnd = ""
| intEndRowOffset = -1
| strColumn = "P"
| End If
|
| strStartingCell = FindAddress(strStart, intStartRowOffset)
|

Jim -

This works great (I feel stupid, it's so simple).

Thanks!
Robin