[RESOLVED] Dim and Copy and Paste issue in VBA

[bree2d2]

I am getting a few errors when I try to run this. I have a secret suspicion that I am missing something super simple.

Sub StatSig()
Dim FirstSht As Worksheet
ActiveSheet.Name = FirstSht
Dim StatSigSht As Worksheet
Sheet23 = StatSigSht
FirstSht.Range("B61:C62").Value = StatSigSht.Range("D19:E20").Value
StatSigSht.Range("D27").Value = FirstSht.Range("B71").Value
StatSigSht.Range("C29").Value = FirstSht.Range("B72").Value

End Sub

Help me out!