You mean something like this?


Code
-------------------
Sub test1()
Dim Temp As String
Dim X As Integer
Dim TopInches As Integer
X = 1
Temp = "O" & X

For TopInches = 1 To 10
If TopInches < 10 Then
Range(Temp).NumberFormat = "## ""' "" 0 ##/##"
Else
Range(Temp).NumberFormat = "## ""' "" #0 ##/##"
End If

X = X + 1
Temp = "O" & X
Next
End Su
-------------------

--
malik64

-----------------------------------------------------------------------
malik641's Profile: http://www.excelforum.com/member.php...fo&userid=2419
View this thread: http://www.excelforum.com/showthread.php?threadid=54883