Lines Matching refs:I
1127 Dim I As Integer
1135 For I = 1 To NameCount
1136 theBadChars.BadChar = Mid(aName, I, 1)
1137 theBadChars.Position = I
1147 Next I
1913 Dim I As Integer
1935 I = 0
2003 myarray(I, i2) = Range(Values(i2)).Address
2009 myarray(I, i2) = ""
2013 I = I + 1
2050 Dim I As Integer
2104 For I = 1 To Num - 1
2105 If myarray(I, 0) = "" Then
2115 c2 = SplitRange(myarray(I, 0))
2117 v2 = SplitRange(myarray(I, 2))
2153 Next I
2207 Dim I As Integer
2212 For I = 1 To l
2213 m = Mid(s, I, 1)
2215 Next I
2228 Dim I As Integer
2232 For I = 0 To 2
2233 If IsRange(Values(I)) Then
2234 c1 = InStr(1, Values(I), "!")
2236 sh = Mid(Values(I), 1, c1 - 1)
2237 temp = Mid(Values(I), 1, c1 - 1)
2239 temp = Mid(Values(I), 1, c1 - 1)
2246 Next I