Sub CnvToHyper() ' ' Macro1 Macro that converts a display to Hyperlink enable so that ' Mouse on Hover works. ' Dim display As String Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Sheets("TestHover").Activate With ActiveSheet For i = 1 To 0 Step -1 For j = 6 To 0 Step -1 [FirstDisp].Offset(i, j).Select display = ActiveCell.Value [COLOR=#ff0000][B]ActiveCell.Value = "=IFERROR(HYPERLINK(MouseOver(""" & display & """)),""" & display & """)"[/B][/COLOR] Next j Next i End With Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub
It is giving the error on the statement in red.
I'm trying to convert a data that is 2 rows 6 columns wide such that each cell has a formula as listed in red above. Am using Excel 2013 with no add-ins and am about to go nuts. What am I doing wrong here??!! Please help. Each cell in the data contain an alpanumeric ID 12 chars long and nothing else.
Here is the MouseOver function
Public Function MouseOver(PassedValue As String) If [ErrBox] = PassedValue Then Exit Function [ErrBox] = PassedValue End Function