Excel Forum

Code: Select all

Private Sub Worksheet_Activate()
     ActiveSheet.ScrollArea = "$A$1:$H$10"
End Sub

Code: Select all

Private Sub Workbook_Open()
    Worksheets("Sheet1").ScrollArea = "$A$1:$H$10"
End Sub

Code: Select all

Sub PasteData()
Dim rSource As Range
Dim rTarget As Range
    Application.ScreenUpdating = False
    Set rSource = Sheets("Temp").Range("A2:E10")
    Set rTarget = Sheets("Sheet2").Range("B65536").End(xlUp).Offset(1, 0)
    rSource.Copy
    rTarget.PasteSpecial xlPasteValues
    Application.ScreenUpdating = True
    MsgBox "Record Complete"
End Sub

Code: Select all

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With Calendar1
        If ActiveCell.Address = "$E$8" Then
            .Visible = True
            .Top = ActiveCell.Offset(0, 0).Top
            .Left = ActiveCell.Offset(0, 1).Left
        Else
            .Visible = False
        End If
    End With
End Sub

Private Sub Calendar1_Click()
ActiveCell.Value = Calendar1.Value
End Sub