Two of 51 Macros from this book are given below: Macros to Encode and Decode the Sheet[Please check both the Macros by copying into VB Editor of Any Excel file. Then RUN the Macro.] Sub Encode_the_Sheet_Selected_Rows_N_Columns()
On Error GoTo ERR
Dim S1, S2 As Variant
Dim change(20), CHANGE2(20), l, M As Integer
Dim ic, lc, ir, lr, hello, J, k As Long For I = 1 To 20
If I change(I - 1) = I * I
CHANGE2(I - 1)...