Don't think you can get the resolution but you can (optionally) maximiz
Excel, maximize the active pane and then get the number of point
available. You can then use *that* to set column widths & heighs, an
pick a font size to fit

EG


Application.WindowState = xlMaximized
With ActiveWindow
.WindowState = xlMaximized
MsgBox .Width
End With

Ga

--
gazornenpla

-----------------------------------------------------------------------
gazornenplat's Profile: http://www.excelforum.com/member.php...fo&userid=2449
View this thread: http://www.excelforum.com/showthread.php?threadid=38096