Excel, área de localização automática da forma de inserção

Question

como posso obter a área automaticamente quando insiro um quadrado no excel?
Com o código abaixo, posso obter a msg de altura & largura, mas eu estou preso com a área de encontrar e mostrar em msg.
Além disso, como pode o link de codificação para a forma que eu insiro?

Dim cell As Range
    Dim Width As Long
    Dim Height As Long

  For Each cell In Selection.Cells.Columns(1)
    Height = Height + cell.Height
  Next cell

  For Each cell In Selection.Cells.Rows(1)
    Width = Width + cell.Width
  Next cell

  MsgBox "Height:  " & Height & "px" & vbCr & "Width:   " _
   & Width & "px", , "Dimensions"

    

Answer 1

Sub AreaPixels()  
Dim cell As Range  
Dim Width As Long  
Dim Height As Long  

For Each cell In Selection.Cells
    Height = cell.Height
    Width = cell.Width
    cell.Value = Height * Width
    Next cell

End Sub