flyt sidefod til venstre (0,5mm fra venstre)

Jeg har selv fundet en løsning.
Sub Makro1()
 
    ActiveSheet.TextBoxes.Add(1.25, 796.55, 343.5, 22.5).Select 'Venstre, Top, Længde og højde
    Selection.Border.LineStyle = xlNone
   
    Selection.Characters.Text = [A1] 'Skriver teksten som står i A1
   
    With Selection.Font
        .Name = "OCRBB12" 'Eller anden skrifttype
        .FontStyle = "Regular"
        .Size = 12
        Selection.Interior.ColorIndex = xlNone
    End With
   
    Selection.Name = "Tekst 1"
   
    'ActiveWindow.SelectedSheets.PrintOut Copies:=1
    'Selection.Delete
End Sub

'Og få fat i tekstblokken igen.

Sub Makro3()
    ActiveSheet.DrawingObjects("Tekst 1").Select
End Sub