code...
missing...
str1 = Right(activecell.Formula, Len(activecell.Formula) - 1)
If InStr(str1, "!") = 0 Then Exit Sub
str2 = Left(str1, WorksheetFunction.Find("!", str1) - 1)
.....
End sub

I have (1st line above) that returns as a string the sheetname and cell
address.
vlaue returned -- '1'!$R143

str2 (line 3) returns '1'

The problem is my sheet names are pure numbers (first 4 sheet names) 1 2 3
4
my str1 = "'1'"

a later line of code:
str4 = Sheets(str2).Range(str3).Formula

Does not return the proper sheet name '1' , but instead "'1'"

What can I do?
Tks in advance..