Snasui Excel Forum

Code: Select all

Sub Login()

        Dim ws As Worksheet
        Set ws = Sheets("Login")
        
        With ws
                    
                If .Range("F8") = 1 Then
                Application.Goto Reference:="Msid"
                Selection.Copy
                Application.Goto Reference:="R2C14"
                Selection.End(xlDown).Select
                ActiveCell.Offset(1, 0).Range("A1").Select
                ActiveSheet.Paste
                Application.CutCopyMode = False
                Selection.Copy
                Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                    :=False, Transpose:=False
            Else
                MsgBox "Wrong Password"
            End If

    End With

End Sub