Sub test() With Worksheets("Sheet1").Cells(1, 1) .Activate .Value = "WithTest" '値 With .Font .Size = 14 '文字サイズ .Bold = True '太文字 .FontStyle = "HG教科書体" '書式 End With .Interior.ColorIndex = 6 'セルの色 .RowHeight = 20 'セルの高さ .ColumnWidth = 10 'セルの幅 End With End Sub