if and print command conditionally

[Morrezagh]

Hi
How to write this command in vba?:
If cell B1 was greater than 50, then the print command should be issued, otherwise nothing

 

[Skyybot]

Sub PrintSheet()
Dim wb As Workbook, sht As WorkSheet
Set wb = ThisWorkbook: Set sht = wb.Sheets("Sheet1")
If sht.Range("B1") > 50 Then
sht.PrintOut
End If
End Sub

 

[Morrezagh]

Sub PrintSheet()
Dim wb As Workbook, sht As WorkSheet
Set wb = ThisWorkbook: Set sht = wb.Sheets("Sheet1")
If sht.Range("B1") > 50 Then
sht.PrintOut
End If
End Sub

Thanks my friend