Error on define Myrange at VBA

[maabadi]

I want to set myrange based on cell value, but when run my macro. I see runtime error 91.
object not defined or set block variable

Sub SetRangeforPrint()
Dim MyRange As Range
Dim ws As Worksheet
Dim Lastrow As Long
If Range("B65").Value <> "" Then
Lastrow = Range("B65").Value * 34 + 6
Debug.Print Lastrow
MyRange = Range("A1:K" & Lastrow)
Debug.Print MyRange
End If
End Sub

 

[MARK858]

Set MyRange = Range("A1:K" & Lastrow)

and

Debug.Print MyRange.Address

 

[maabadi]

Thanks Mark858. Very well working.

 

[MARK858]

You're welcome

 

[maabadi]

Sorry. And one other thing:

I modified code to this but again have problems:
Sub SetRangeforPrint()
Dim MyRange As Range
Dim ws As Worksheet
Dim Lastrow As Long
Dim PrintArea As String

If Range("B65").Value <> "" Then
Lastrow = Range("B65").Value * 34 + 6
Debug.Print Lastrow
Set MyRange = Range("A1:K" & Lastrow)
Debug.Print MyRange.Address
End If
Set ws = Worksheets("sheet2")
Set PrintArea = ws.MyRange.Address
PrintArea.PrintOut Preview:=True
End Sub

 

[MARK858]

ws.PageSetup.PrintArea = MyRange.Address
ws.PrintOut Preview:=True

 

[maabadi]

Sorry Compile error: Method or Data member not found on:

ws.PageSetup.PrintArea = ws.MyRange.Address

 

[MARK858]

Remove the ws.

 

[maabadi]

Thanks again. & Have nice days always.