シートをフリーズするためのシートを指定するExcel

Question

Excelでコードを使用して枠をフリーズしようとしています。私は、アクティブウィンドウでそれを行う方法に関するいくつかの例を見てきました。

別のシートのボタンからsepcifyしてください。

は、私が2枚、「時間」と「Time_and_Cost」を持って、私は

「Time_and_cost」の一番上の行を凍結したい「時間」シート上のボタンを持っています。

現在のところ、アクティブウィンドウのペインをフリーズするためのコードがあります。

Rows("1:1").Select 
ActiveWindow.FreezePanes = True 

はしかし、どのように私は、このワークシートを指定するために適応することができ、私は凍結するワークシートを選択するために持っていると仮定し、

が前のワークシートを選択し、それを凍結？私は問題のある正確なコードを見つけることができます。私は前に一番上の行が凍結されるようにペインを凍結する「Time_and_Cost」にA2を活性化しています

Public Sub FreezePane() 
Dim shName As String 
shName = ActiveWindow.ActiveSheet.Name 
ActiveWorkbook.Worksheets("Time_and_Cost").Activate 
Range("A2").Activate 
ActiveWindow.FreezePanes = True 
ActiveWorkbook.Worksheets(shName).Activate 
End Sub 

注：このような何かを事前

Answer 1

方法で

感謝。