This version of Excel will not run Macros

[stuartgb100]

Hi,

With a lot of help, I now have a working routine. Thanks.
The routine was designed to work on an android smartphone running 365.
I found out soon that macros are not supported, so I had to work around that limitation,
and then save the workbook as a .xlsx file (without code).
It seemed to work, but then I found this problem:

When a hyperlink is clicked in the .xlsm version, it displays the relevent worksheet, and I use this given code to make
the cell being linked at the top of the window:

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
    'to set the target row to display
    'Application.Goto Reference:=ActiveCell, Scroll:=True
    'to set the target row and column to display
    'Application.Goto Reference:=Cells(ActiveCell.Row - 1, 1), Scroll:=True
    If ActiveCell.Row = 1 Then
        Application.Goto Reference:=Cells(ActiveCell.Row, 1), Scroll:=True
    Else
        Application.Goto Reference:=Cells(ActiveCell.Row - 1, 1), Scroll:=True
    End If
End Sub

This works fine in the .xlsm version, but when saved as a .xlsx workbook,
the code is stripped out.

Consequentially, when running the .xlsx version on the smarphone, the display does not 'snap' to the required row.

Is there a way around this, or must I accept the limitation ?

Many thanks.

 

[severynm]

By design, xlsx workbooks do not include macros. There is nothing you can do about that. You can open and edit xlsm files on mobile just fine, but the macros will not run.

 

[stuartgb100]

Thanks for that.
Yes, I did realise the macro limitation with xlsx workbooks.
Probably stupid, but I wondered if there might be a way to overcome this problem with some sort of formula ?
Probably not.

Thanks again.

 

[MARK858]

overcome this problem with some sort of formula ?

Formulas return a result, they can't move anything