Dim MyStr As String
MyStr = "kjkjkj"
Sheets("Sheet2").Select
Range("A1").Formula = MyStr
Sheets("Sheet2").Select
Range("A1").Formula = MyStr


"Mark J" wrote:

i have the following script working , but need help on pasting value into
another sheet in this workbook, any help would be welcome. Thank You

Dim texzt as String
Private Sub cmdReport_Click()
Message = "Please Enter the Report Date"
Title = "Report Date Input Form"
Default = Date
MyValue = InputBox(Message, Title, Default)
texzt = MyValue
Workbooks("SOUTH CROSS BAYOU - DOR11").Sheets("SCBPg1").Range("D1") = texzt
End Sub