I have a macro that looks like this........ It doesn't currently work
(I am very poor on VB!) this is the code up to 3rd day of the month.
Obviously I would have to duplicate this for the rest of the date
range. Can anybody help me out with how to get this to work
?
Thanks

Tom


Sub test()
'
' test Macro
' Macro recorded 01/08/2005 by bailete
'

'
Range("B3:B4").Select
Selection.Copy
one
End Sub

Sub one()

If ("B1") = "1" Then

Range("A7").Select
ActiveSheet.Paste

Else: two


End If
End Sub



Sub two()
If ("B1") = "2" Then

Range("B7").Select
ActiveSheet.Paste

Else: three


End If
End Sub

Sub three()
If ("B1") = "3" Then

Range("C7").Select
ActiveSheet.Paste

Else: End


End If
End Sub


--
tom300181
------------------------------------------------------------------------
tom300181's Profile: http://www.excelforum.com/member.php...o&userid=21580
View this thread: http://www.excelforum.com/showthread...hreadid=391750