Tamaño de la Celda y fila

Estimado Amprendamos 

Este marco lo saque de una inquietud que le hicieron a ud pero no lo se insertarlo ni ejecutarlo me podia decir como se ejecuta por favor 

espero con ansias su respuesto

Sub Macro3()
'
' Obtiene el ancho y alto de una celda
' Por.Dam
col = ActiveCell.Column
col = Columns(col).ColumnWidth
lin = ActiveCell.Row
lin = Rows(lin).RowHeight
MsgBox ("ancho columna " & col)
MsgBox ("alto fila " & lin)
End Sub