Macro sheet find

[fari1]

Hi,
I'm having problem with following vba code

Sub Macro1()
'
' Macro1 Macro
'
'
Range("Q2:T12").Select
Selection.Cut
Sheets("Sheet2").Select
Range("G2").Select
ActiveSheet.Paste
Dim SheetNameToFind As String
SheetNameToFind = ActiveSheet.Range("A1").Value
Dim SheetToFind As Worksheet
Set SheetToFind = Sheets(SheetNameToFind)
SheetToFind.Select 'or SheetToFind.activate
ActiveWorkbook.Names.Add Name:="dynamic_range", RefersTo:="=offset($b$2,0,0,counta($b:$h),5)"
ActiveSheet.Range("dynamic_range").Copy
Sheets("Sheet1").Select
Range("a2").Select
Sheets("Sheet1").Paste
Sheets("UI").Select
Range("A1").Select
End Sub


This macro is triggered by a command button (assign macro)
but when i press the button, it gives runtime error and highlights the following line
Set SheetToFind = Sheets(SheetNameToFind)


Regards

 

[fari1]

thanks mr mike, u've been an unseen help here, i just wanted john to see that file.

but code still gives error when there's a value in cell, run time error is still appearing, i guess that code needs to be changed a bit to get results, because it was working fine before i merged these two codes