اخى الكريم
جرب هذا الكود
لعله ما تريد
Sub h()
Range("j6").Font.ThemeColor = xlThemeColorDark1
Range("j6").Borders.LineStyle = xlNone
Range("j6").Interior.Pattern = xlNone
Sheet1.PrintPreview
Range("j6").Font.ColorIndex = xlAutomatic
Range("j6").Borders.LineStyle = xlContinuous
Range("j6").Interior.Pattern = xlSolid
End Sub