Hi,
Try this also
Sub PgOrentation()
Select Case Sheet1.PageSetup.Orientation
Case 1: MsgBox "xlPortrait"
Case 2: MsgBox "xlHorizontal"
Case Else: MsgBox "None"
End Select
End Sub
Regards,
Lalit Mohan
UTC+5:30, stonesfan wrote:
> I need to trap PageSetup settings to dete
Hi stonesfan,
Try This I hope this will help u.
Sub PageOrientation()
MsgBox Switch(Sheet1.PageSetup.Orientation = 1, "xlPortrait",
Sheet1.PageSetup.Orientation = 2, "xlHorizontal")
End Sub
regards
prince dubey
On Wednesday, 27 June 2012 21:54:42 UTC+5:30, stonesfan wrote:
> I need
