O.O
Saludos partner
Creo que lo que necesitas es algo así:
Sub LlenaCelda(ByRef pSheet As Worksheet, ByVal pRow As Integer, ByVal pCol As Integer, ByVal pCont As Variant, ByVal pWidth As Integer, ByVal pBol As Boolean, ByVal pNum As Boolean)
pSheet.Cells(pRow, pCol).Value = pCont
If pWidth > 0 Then
pSheet.Cells(pRow, pCol).ColumnWidth = pWidth
End If
pSheet.Cells(pRow, pCol).Font.Size = 9
pSheet.Cells(pRow, pCol).Font.Bold = pBol
If pNum Then
pSheet.Cells(pRow, pCol).NumberFormat = "###,###,###,##0.00"
End If
End Sub
donde:
pSheet es la hoja
pRow es la fila (en número)
pCol es la columna (en número)
pCont es el contenido
pWidth es el ancho de la celda
pBol es el Bold de la letra
pNum para indicar si el contenido es numérico.
Suerte.