Form Show Error

Hi all,

I have the following code in a cmd button on a sheet;

If r = vbYes Then
            
            ActiveSheet.Unprotect Password:=Pass
            
            Range(Cells(start, 1), Cells(finish, 18)).Select
            Selection.Copy
            Call FindNextEmpty
            ActiveCell.Offset(0, -6).Select
            Selection.PasteSpecial Paste:=xlValues
            
            With Selection.Borders(xlEdgeBottom)
                .LineStyle = xlDot
                .Weight = xlThin
                .ColorIndex = xlAutomatic
            End With
            
            For i = start To finish
                ActiveSheet.Rows(start).Delete
            Next
            Range("A2").Select
            ActiveSheet.Protect Password:=Pass
            
            frmMain.Show
            
        End If

Keep getting an error saying 'Invalid Property Value'? any ideas?

Hi,

I have identified that if i do the following code;

        If r = vbYes Then
            
            ActiveSheet.Unprotect Password:=Pass
            
            Range(Cells(start, 1), Cells(finish, 18)).Select
            Selection.Copy
            Call FindNextEmpty
            ActiveCell.Offset(0, -6).Select
            Selection.PasteSpecial Paste:=xlValues
            
            With Selection.Borders(xlEdgeBottom)
                .LineStyle = xlDot
                .Weight = xlThin
                .ColorIndex = xlAutomatic
            End With
            frmMain.Show
            For i = start To finish
                ActiveSheet.Rows(start).Delete
            Next
            Range("A2").Select

            ActiveSheet.Protect Password:=Pass

        End If

the form will then show but the rows will not delete - because a different sheet is activated when the form loads. Why does the form not load when placed under the delete rows loop?

Any ideas appreciated..

Originally Posted by gti_jobert

Hi,

I have identified that if i do the following code;

        If r = vbYes Then
            
            ActiveSheet.Unprotect Password:=Pass
            
            Range(Cells(start, 1), Cells(finish, 18)).Select
            Selection.Copy
            Call FindNextEmpty
            ActiveCell.Offset(0, -6).Select
            Selection.PasteSpecial Paste:=xlValues
            
            With Selection.Borders(xlEdgeBottom)
                .LineStyle = xlDot
                .Weight = xlThin
                .ColorIndex = xlAutomatic
            End With
            frmMain.Show
            For i = start To finish
                ActiveSheet.Rows(start).Delete
            Next
            Range("A2").Select

            ActiveSheet.Protect Password:=Pass

        End If

the form will then show but the rows will not delete - because a different sheet is activated when the form loads. Why does the form not load when placed under the delete rows loop?

Any ideas appreciated..

do you close the form down?

At this point in the application, the form is initialising for the first time.