poorwallace
Active Member
- Joined
- Mar 8, 2005
- Messages
- 365
I've got a small macro here which worked on my home computer but is not working here at work....I can't seem to figure out why (it looks good to me). I was hoping somebody could figure out where I'm mistepping. The problem, specifically, is that at the "set c" part of the code, c is not being found, when it clearly is in the range...I've gone to the immediate window and checked.....
Thanks
Thanks
Code:
Sub test()
Dim todaydate
todaydate = Date
With Sheets("Supplement").Range("A1:A10000")
Set c = .Find(todaydate, LookIn:=xlValues)
If Not c Is Nothing Then
c.Offset(0, 7).Copy
c.Offset(0, 7).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End If
End With
End Sub