Freeze panes in vba

I am using the following snippet of code to try and freeze the left 4 columns and the upper 4 rows

Please Login or Register  to view this content.

Freeze panes works on the SplitRow = 4
It does not appear to be working on SplitColumn = StartPlace-4 (= 2224) I have searched for a column which is not the one I needed that is Frozen but Have not found it.
I have also tried adding another FreezePanes =True after row 10 still not working. I have attached a copy of the important part of the worksheet. Can some body show me where I have gone wrong?

Select the first cell you want to be able to move and then freeze the panes. If you change your posted code snippet to this, I think it will work the way you want...

Please Login or Register  to view this content.

Thanks Rick for your interest. Your help has got me going, but left me with a puzzle.
I slightly modified your code Because in fact the spread sheet is very large with 3000 columns. I want to freeze at the last 365 of these. So I changed to this:-

Please Login or Register  to view this content.

When the command button that fires this code, is pressed. Sheet1 is activated at "A5" And the upper rows are frozen, but no columns on the left. LastCol has the right, large, value
John

Originally Posted by j_Southern

Thanks Rick for your interest. Your help has got me going, but left me with a puzzle.
I slightly modified your code Because in fact the spread sheet is very large with 3000 columns. I want to freeze at the last 365 of these. So I changed to this:-

Please Login or Register  to view this content.

When the command button that fires this code, is pressed. Sheet1 is activated at "A5" And the upper rows are frozen, but no columns on the left. LastCol has the right, large, value
John

Sheet1 is activated???? The code says Sheet2 is being activated. Also, I am not sure why you are not getting an error with the code because the Cells(5, LastCol).Select should not have a dot in front of it.

Rick, Thanks again for your help. The code below is the code that was used ( I am sorry I published the wrong version)
[CODE]Sub StopFrame(StartPlace)
Worksheets("Sheet1").Activate
With ActiveWindow
.SplitRow = 6
.SplitColumn = StartPlace
.FreezePanes = False
Cells(6, StartPlace).Select
.FreezePanes = True
End With
End Sub
[/CODE
It behaves as I described before with the rows frozen but not the columns. The idea for the code came from googling "FreezePanes". I had not been aware of "Split" before but it seemed to be a good fit to use with FreezePanes .
Can you help me a bit further?
John