앞부분에도 몇줄의 조건문과 변수 선언 부분이 있는데요 .. 잘 작동 되는 부분이었는데

 

아래 몇줄을 추가했더니, 매크로가 돌아가지를 않네요       

 

왜이런지 ........이해가 안되네요 ...

 

 

추가한 부분은

 

dim tmp_rng  as range

 

와,

 

Set tmp_rng = Sheets("오늘의유머").Range(현재위치.Offset(0, 57), 현재위치.Offset(0, 84)

 

현재위치.Offset(0, 114).Value = WorksheetFunction.Sum(tmp_rng)
   

 

Set tmp_rng = Sheets("오늘의유머").Range(현재위치.Offset(0, 85), 현재위치.Offset(0, 111))

현재위치.Offset(0, 115).Value = WorksheetFunction.Sum(tmp_rng)
   

 

입니다..