I am not sure what you mean by "pause while a number is entered" but here is
the code for setting the column width:

With Worksheets("Sheet1").Columns("A")
.ColumnWidth = 50
End With

If you then want to enter something into a cell in the column, you could use
an inputbox.

myNum = InputBox("Enter a number", "Entry")
Range("A2") = CLng(myNum)

If the entry must be a number then the number you enter in the inputbox will
be stored in the variable myNum as a string value, so when you put it in the
cell, you would use the CLng function to coerce the variable value to an long
integer data type.

"hawki" wrote:

i need the code for setting the column width. the code needs to "pause" for
allowing a number to be entered and then resume.

Any suggestions?

lhawk