hemantmohan.1
New Member
- Joined
- Oct 26, 2010
- Messages
- 30
Can u help me with these codes. As soon as i run this macro it gives an error and stops at the line in bold. Help will be greatly appreciated.
Public Sub CommandButton1_Click()
Dim d, m, y, od
Windows("Performance Sheet.xls").Activate
Sheets("Performance Sheet").Select
d = Range("A42").Value
od = Range("A46").Value
m = Range("A41").Value
y = Range("A43").Value
Application.ScreenUpdating = True
Public Sub CommandButton1_Click()
Dim d, m, y, od
Windows("Performance Sheet.xls").Activate
Sheets("Performance Sheet").Select
d = Range("A42").Value
od = Range("A46").Value
m = Range("A41").Value
y = Range("A43").Value
Application.ScreenUpdating = True