run time error 13

[Guest]

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

 

[Guest]

Same as previous post

 

[Don Guillett]

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

 

[Guest]

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

 

[Guest]

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

 

[Don Guillett]

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

End Sub