I have checked this with a few Excel 2002 2003 2007 2010 2013 in XP Vista Win7 and Win 10, but I would like to know if its working for other people
Can anyone check it out in their Excel, in particular I am interested if it works in newer Office versions
Thanks
Alan
_.___________
This is what I would like you to try for me please:
Download and open the uploaded file, then
enable macros and then
type anything in cell A1, then tell me what happens.
_.______________________________________________________________________________
EDIT: Or, alternatively, if you prefer not to risk downloading the file ;)
Please do this
In a new virgin File, insert a normal code module and put this coding in it
Code: Select all
Option Explicit
Function WotsThereWhere(ByVal Rng As Range) As String
Evaluate "='" & ThisWorkbook.Path & "\TryThisPlease.xls'!Modul1.YouNameIt(" & Rng.Address & ", """ & ActiveSheet.Name & """)" ' Evaluate "=YouNameIt(" & Rng.Address & ", """ & ActiveSheet.Name & """)" ' : Debug.Print "=YouNameIt(" & Rng.Address & ", """ & ActiveSheet.Name & """)" ' gives YouNameIt($A$1, "Sheet1")
End Function
Sub YouNameIt(ByVal Rng As Range, ByVal Sht As String)
Stop ' It wont
Let Rng.Offset(0, 2).Value = ""
Let Rng.Offset(0, 2).Value = "You wrote " & Rng.Value & " in cell " & Rng.Address(0, 0) & ", in worksheet " & Sht
End Sub
Save the file as TryThisPlease.xls
Close the file
Open the file
enable macros and then
type anything in cell A1, then tell me what happens.