Giving run time error 13 on line pos = InStr(sStr, "-")
anyone know the problem with the code

Sub Macro6()
'
' Macro6 Macro
' Macro recorded 10/1/2004 by Husky User
'

Dim sStr As String
Dim pos As Long
Dim i As Long
Dim j As Long
Windows("LL-CP-0163.xls").Activate
Range("J2").Select //J2 =
LL-CP-0163
sStr = "J2" // Set
sTtr to LL-CP-0163
pos = InStr(sStr, "-") // find -
before 0163
i = Mid(sStr, pos + 1) + 1 // set i =
0163 + 1=164
j = i - 1 // j=163
MsgBox i
MsgBox j
Range("F" & i).Select
End Sub

Same as previous post

"Tim" wrote:

Giving run time error 13 on line pos = InStr(sStr, "-")
anyone know the problem with the code

Sub Macro6()
'
' Macro6 Macro
' Macro recorded 10/1/2004 by Husky User
'

Dim sStr As String
Dim pos As Long
Dim i As Long
Dim j As Long
Windows("LL-CP-0163.xls").Activate
Range("J2").Select //J2 =
LL-CP-0163
sStr = "J2" // Set
sTtr to LL-CP-0163
pos = InStr(sStr, "-") // find -
before 0163
i = Mid(sStr, pos + 1) + 1 // set i =
0163 + 1=164
j = i - 1 // j=163
MsgBox i
MsgBox j
Range("F" & i).Select
End Sub

You were telling excel to make your sstr "J2", not the contents of
range("j2"). But, you need not select.

ms=range("j2")
pos=instr(ms,"-"
i=mid(ms, etc


Range("J2").Select //J2 =
LL-CP-0163
sStr = "J2" //
Set
sTtr to LL-CP-0163
pos = InStr(sStr, "-") // find -
before 0163
i = Mid(sStr, pos + 1) + 1 // set i =
0163 + 1=164
j = i - 1 //
j=163


--
Don Guillett
SalesAid Software

"Tim" wrote in message
...
Giving run time error 13 on line pos = InStr(sStr, "-")
anyone know the problem with the code

Sub Macro6()
'
' Macro6 Macro
' Macro recorded 10/1/2004 by Husky User
'

Dim sStr As String
Dim pos As Long
Dim i As Long
Dim j As Long
Windows("LL-CP-0163.xls").Activate
Range("J2").Select //J2 =
LL-CP-0163
sStr = "J2" //
Set
sTtr to LL-CP-0163
pos = InStr(sStr, "-") // find -
before 0163
i = Mid(sStr, pos + 1) + 1 // set i =
0163 + 1=164
j = i - 1 //
j=163
MsgBox i
MsgBox j
Range("F" & i).Select
End Sub

Sorry dave i wasn't impatient i accidently posted the question twice.
Thanks for your help

"Don Guillett" wrote:

You were telling excel to make your sstr "J2", not the contents of
range("j2"). But, you need not select.

ms=range("j2")
pos=instr(ms,"-"
i=mid(ms, etc


Range("J2").Select //J2 =
LL-CP-0163
sStr = "J2" //
Set
sTtr to LL-CP-0163
pos = InStr(sStr, "-") // find -
before 0163
i = Mid(sStr, pos + 1) + 1 // set i =
0163 + 1=164
j = i - 1 //
j=163


--
Don Guillett
SalesAid Software

"Tim" wrote in message
...
Giving run time error 13 on line pos = InStr(sStr, "-")
anyone know the problem with the code

Sub Macro6()
'
' Macro6 Macro
' Macro recorded 10/1/2004 by Husky User
'

Dim sStr As String
Dim pos As Long
Dim i As Long
Dim j As Long
Windows("LL-CP-0163.xls").Activate
Range("J2").Select //J2 =
LL-CP-0163
sStr = "J2" //
Set
sTtr to LL-CP-0163
pos = InStr(sStr, "-") // find -
before 0163
i = Mid(sStr, pos + 1) + 1 // set i =
0163 + 1=164
j = i - 1 //
j=163
MsgBox i
MsgBox j
Range("F" & i).Select
End Sub

Still getting the error with line
i = Mid(ms, pos + 1) + 1



"Don Guillett" wrote:

You were telling excel to make your sstr "J2", not the contents of
range("j2"). But, you need not select.

ms=range("j2")
pos=instr(ms,"-"
i=mid(ms, etc


Range("J2").Select //J2 =
LL-CP-0163
sStr = "J2" //
Set
sTtr to LL-CP-0163
pos = InStr(sStr, "-") // find -
before 0163
i = Mid(sStr, pos + 1) + 1 // set i =
0163 + 1=164
j = i - 1 //
j=163


--
Don Guillett
SalesAid Software

"Tim" wrote in message
...
Giving run time error 13 on line pos = InStr(sStr, "-")
anyone know the problem with the code

Sub Macro6()
'
' Macro6 Macro
' Macro recorded 10/1/2004 by Husky User
'

Dim sStr As String
Dim pos As Long
Dim i As Long
Dim j As Long
Windows("LL-CP-0163.xls").Activate
Range("J2").Select //J2 =
LL-CP-0163
sStr = "J2" //
Set
sTtr to LL-CP-0163
pos = InStr(sStr, "-") // find -
before 0163
i = Mid(sStr, pos + 1) + 1 // set i =
0163 + 1=164
j = i - 1 //
j=163
MsgBox i
MsgBox j
Range("F" & i).Select
End Sub

try
Sub instrr()
ms = Range("j2")
pos = InStr(ms, "-")
i = Mid(ms, pos + 1, 1) 'gets C
MsgBox i

End Sub


--
Don Guillett
SalesAid Software

"Tim" wrote in message
...
Still getting the error with line
i = Mid(ms, pos + 1) + 1



"Don Guillett" wrote:

You were telling excel to make your sstr "J2", not the contents of
range("j2"). But, you need not select.

ms=range("j2")
pos=instr(ms,"-"
i=mid(ms, etc


Range("J2").Select //J2 =
LL-CP-0163
sStr = "J2"
//
Set
sTtr to LL-CP-0163
pos = InStr(sStr, "-") //
find -
before 0163
i = Mid(sStr, pos + 1) + 1 // set
i =
0163 + 1=164
j = i - 1
//
j=163


--
Don Guillett
SalesAid Software

"Tim" wrote in message
...
Giving run time error 13 on line pos = InStr(sStr, "-")
anyone know the problem with the code

Sub Macro6()
'
' Macro6 Macro
' Macro recorded 10/1/2004 by Husky User
'

Dim sStr As String
Dim pos As Long
Dim i As Long
Dim j As Long
Windows("LL-CP-0163.xls").Activate
Range("J2").Select //J2
=
LL-CP-0163
sStr = "J2"
//
Set
sTtr to LL-CP-0163
pos = InStr(sStr, "-") //
find -
before 0163
i = Mid(sStr, pos + 1) + 1 // set
i =
0163 + 1=164
j = i - 1
//
j=163
MsgBox i
MsgBox j
Range("F" & i).Select
End Sub