VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm1 Caption = "UserForm1" ClientHeight = 5060 ClientLeft = 0 ClientTop = -440 ClientWidth = 7060 OleObjectBlob = "test.frx":0000 StartUpPosition = 1 'PropriŽtaireCentre End Attribute VB_Name = "UserForm1" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub CommandButton1_Click() ' ' Range("A1").Select ActiveCell.FormulaR1C1 = "A" Range("A2").Select ' ' End Sub