Dozvoliti unos samo brojčanih vrijednosti i zarez

     Private Sub Textbox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
     Select Case KeyAscii
     Case 48 To 57, 44' 44 je zarez
     Case Else
        MsgBox "Dozvoljen je samo brojčani unos!", vbCritical
    KeyAscii = 0
    End Select
   End Sub

   Private Sub TextBox2_Change()
    If Not IsNumeric(TextBox2) Then
    TextBox2 = ""
    End If
  End Sub

Kopirajte u modul i pokrenite makro

Zamjena referenci

Sub Relativna_u_apsolutnu()
   Dim Zamjena
   For Each Zamjena In ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas, 23)
   Zamjena.Formula = Application.ConvertFormula(Formula:=Zamjena.Formula,     FromReferenceStyle:=xlA1, ToAbsolute:=xlAbsolute)
  Next
  End Sub

Sub Apsolutna_u_relativnu()
  Dim Zamjena
  For Each Zamjena In ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas, 23)
 Zamjena.Formula = Application.ConvertFormula(Formula:=Zamjena.Formula,    

  FromReferenceStyle:=xlA1, ToAbsolute:=xlRelative)
  Next
End Sub