strAddress = .ActiveCell.Address Run-time error 438 when switching sheets

[Aussiebear]

Have you declared "y" as anything?

[MSXL]

I don't know, it was someone else's proposed code change earlier on in the thread. Based on your question, it's doubtful. I don't know what the answer is as to specifically what it should be declared as.

Top of sheet code

Option Explicit

Public arr As Variant
Public strAddress As String

Original code

Public Sub ProcessTab()
Dim i As Integer
If Len(strAddress) <> 0 Then
    For i = 0 To UBound(arr)
        If arr(i) = Split(strAddress, ":")(0) Then
            If i = UBound(arr) Then
                i = 0
            Else
                i = i + 1
            End If
            Exit For
        End If
    Next
    ActiveSheet.Range(arr(i)).Select
Else
    strAddress = arr(0)
'End If
'End Sub

Suggested, amended to match original? Doesn't work.

Public Sub ProcessTab()
Dim y As Integer
    If strAddress <> "" Then
        y = Application.Match(Split(strAddress, ":")(0), arr, 0)
        Range(arr(y)).Select
    End If
End Sub