cannot understand error with range handling

Try this...

Private Sub CommandButton1_Click()
Dim myrange As Range

Set myrange = Workbooks("wis.xlsm").Sheets("Sheet1").Range("A65536").End(xlUp)
myrange.Select

End Sub

Hope this helps.