Macro for freeze cell

[shibulal]

Hi,


I was trying to freeze the cell with the following program. It works with the worksheet of mine.


But the problem is that when the same worksheet sent to another person by mail, this MACRO doesn't work.


Private Sub Worksheet_SelectionChange(ByVal Target As Range)


Dim TabOrder As Variant

Static TabPos As Long


TabOrder = Array("B2")


TabPos = IIf(TabPos > UBound(TabOrder), 0, TabPos)

Application.EnableEvents = False

Range(TabOrder(TabPos)).Activate

Application.EnableEvents = True

TabPos = TabPos + 1


End Sub

 

[Hui]

Did you save the file as an *.xlsm or *.xlsb ?

Did the receiver of the file enable macros when they opened the file?

 

[shibulal]

Hi Hui,


The file is saved as *.xlsx


No pop-op message is received by the receiver while opening the file.

 

[Luke M]

.xlsx format does not support macros. You'll need to change the extension to either .xlsm or .xlsb

 

[shibulal]

Thanks Luke.